** DE 6502 K£»NQIS ** — EW CLOB VOOR 6XXXX GEBRUIKERS ** DE 6502 KIMNER ** — EEN BLAD VOOR 6XXXX GESRUIKERS 



De vereniging heeft leden in Nederland, Belgie, Duitsland, 
Frankrijk, Engeland, Denemarken / Zweden, Spanje/ Portugal, 
Oostenrijk, Finland, Israel, Amerika. Het doel van de 
vereniging is: het bevorderen van de kennisuitwisseling 
tussen gebruikers van 6XXXX-computers , als (XMMODORE- 
16/64/123, AMIGA, APPLE II/IIe/IIc/IIGS/III , MACINTOSH, 
ATARI 60O/80OXL/512/1024ST, QUANTUM LEAP, CHE-1 , PEARCOM, 
AIM-65, SYM, PET, BBC, VIC-20, BASIS 108, PROTON-compu- 
ters, ITT-2020, OSI, ACC 8000, ACORN ELECTRON, SYSTEM 65, 
PC-100, PALLAS, MINTA, FORMOSA, ORIC-1, STARLIGHT, CV- 
777, ESTATE III, SBC65/68, KIM, NCS, KEMPAC SYSTEM-4, 
Elektuur-computers (JUNIOR, EC65(K) alias OCTOPUS), 
LASER, dus ook 6800 , 6809 en 68000-computers. 
De kennisuitwisseling wordt o.a. gerealiseerd door 6 maal 
per jaar DE 6502 KENNER te publiceren, door het houden van 
landelijke clubbi jeenkomsten, door het instandhouden van 
een diskette-service en door het verlenen van paperware- 
service. 



Verschi jningsdata 
DE 6502 KENNER 1985 



Bi jeenkomsten van de club 

derde zaterdag van 
januari, maart, mei, 
September , november . 



derde zaterdag van 
februari, april, juni, 
augustus, oktober, december. 

Redaktie-adres en infoona- 
tie over paperware etc. 

Willem L. van Pelt 
Jacob Jordaensstraat 15 
NL-2923 CK Krirapen/IJssel. 
Tel.: 01807 - 19881 



De vereniging is volledig onaf hankeli jk, is statutair op- 
gericht en ingeschreven bij de Kamer van Koophandel en Fa- 
brieken voor Hollands Noorderkwartier te Alkmaar, onder 
nuitmer 634305. 



Voorzitter : 

Rinus Vleesch Dubois 

Fl. Nightingalestraat 212 

NL-2037 NG Haarlem 

Tel.: 023 - 330993 

Penningmeester : 
John F. van Sprang 
Tulp 71 

NL-2925 EW Krimpen/IJssel . 
Tel.: 01807 - 20589 



Sekretaris: 
Gert Klein 
Diedenweg 119 
NL-6706 CM Wageningen 
Tel.: 08370 - 23646 

Redaktie DE 6502 KENNER: 
Willem L. van Pelt 
Jacob Jordaensstraat 15 
NL-2923 CK Krimpen/IJssel. 
Tel.: 01807 - 19881 



Leden: 
Adri Hankel 
Erwin Visschedijk 
Gert van Opbroek 
Nico de Vries 
Erevoorzitter: 
Ereleden : 

Lidroaatschap : 
Subscription : 



Advertenties 



(05490 - 51151 ) Hardware/software/D0S65 
(05496 - 76764 ) Hardware/sof tware/DOS65 
(01729 - 8636 ) 65802/65816/68000 
(010 - 4517154) Hard-/software/68000 
Siep de Vries 

Mw. H. de Vries - Van der Winden 
Anton MQller 
Hfl. 50,= 

Europe : Hfl. 59,50 

(eurocheque = Hfl. 50,=) 
Outside Europa: 

Hfl. 114,50 (incl. transfers) 
Tarieven op aanvraag bij de redaktie. 



DE 6502 KENNER is een uitgave van de KIM Gebruikers Club 
Nederland. Het blad wordt verstrekt aan leden van de 
club. DE 6502 KENNER wordt van kopij voorzien door leden 
van de club, bij de opraaak van een publikatie bijgestaan 
door de redaktie. De inzendingen van programma's dienen 
voorzien te zijn van kommentaar in de listings en j«bo - 
racg«ii-§k' door een inleiding vooraf gegaan . Publikatie van 
een inzending bete-kent niet dat de redaktie of het 
bestuur enige aansprake-li jkheid aanvaardt voor de toe- 
passing ervan. De inzendingen kunnen geschieden in assem- 
bly-source-listings, in Basic, in Basicode, Forth, Focal, 
Comal, 'C, Pascal, Fortran, Cobol, Logo Elan, etc. etc. 
De leden schrijven ook artikelen over de door hen ontwik- 
kel de hardware en/of aanpassingen daarop. Zij schrijven 
tevens artikelen van algemene aard of reageren op publi- 
katies van andere inzenders. 



DE 6502 KENNER IS EEN BLAD VAN EN DOOR DE LEDEN 



Micro-ADE Assembler/Disassembler/Editor is een produkt van 
Micro Ware Ltd., geschreven door Peter Jennings en bestemd 
voor alle 6502-computers. De KIM Gebruikers Club Ned. 
heeft de copyrights verworven nadat ons lid Sebo Woldringh 
de 4 K KIM-1 versie uitbreidde tot 8 K KIM-1 versie. Adri 
Hankel paste deze aan voor de JUNIOR. -Wii-lero-fc, — woa-Balt 
<)j-clrto non nieuwe^ 8 K source-listlng-iraor de JUNIOR samen* 
De implementatie op andere systemen dan de KIM-1 en 
JUNIOR kan eenvoudig gebeuren door het aanpassen van de 
I/O-adressen, welke in de source-listing gemakkelijk te 
vinden zijn FATE Format-lister/cond. Assembler/Tape-utili- 
ties/Editor is de door ons lid Rob Banen geschreven sour- 
ce-listing van een 12 K universeel systeem voor de JUNIOR- 
computer aan de hand van het universele disk operating 
system van de fa. Proton Electronics te Naarden. 
FATE wordt beschikbaar gesteld met toestemming van Proton. 
DOS65 V2.01 is the new system of our club, build with 
Elek-tor's CPU, VDU, RAM-cards and our own professional 
Floppy-Disk-Controllercard for SS, DS, 40 or 80 tracks and 
a max. of 720 Kbytes capacity. For use with 6502 or 65C02. 
For more information, write to E.J.M. Visschedijk 

Dillenlaan 11, 
NL-7641 CX WIERDEN. 
The new DOS65 V2.01 is hardware compatible with Elektor's 
OCTOPUS/EC65 computer, except the controllercard. 



In de edities van DE 6502 KENNER worden regelmatig medede- 
lingen gedaan over de door de club georganiseerde bijeen- 
komsten, Ook worden bestuurlijke mededelingen gedaan, 
naast informaties over hetgeen in de handel te koop is. 
Leden die iets te koop hebben of lets zoeken kunnen dit in 
de edities van DE 6502 KENNER bekend maken. Ook worden 
brieven aan de redaktie gepubliceerd , evenals specif ieke 
vragen van leden. De edities worden samengesteld op basis 
van een groot aantal prioriteiten, welke door een redak- 
tievergadering worden gehanteerd. Deze vergadering be- 
staat uit de vaste medewer-kers zoals in de colofon ver- 
meld. Het aantal inzendingen is groter dan in een enkele 
editie van minimaal 48 pagina's is te verwerken. Hierdoor 
kan het voorkomen dat een inzending eerst na enige tijd 
kan worden gepubliceerd. 
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DE 6502 KEMHER ia pitf>lish- 
ed by the KIM Useca Club 

Ihe Netherlands. 

Address all editorial, ad- 
vertising and subacription 
inquiries to : 
DE 6502 KENNER 
c/o Willen L. van Pelt 
Jacob Jordaenastraat 15 
NL-2923 CK Kciifwn/IJaael 
The Kether lands. 

Bdilmrlal staff: 

Hlllen I. van Pelt 
Gerard van Roekel 
Frans Smeehuijzen 
Coen Boltjes 

Efeelaneers: 

Fred Behringet: (Germany) 

Andrew Gregory (England) 

Marc Lachaert (Belgiuni) 

Fernando Lopez (Portugal) 

Gert van Opbroek 

Leif Rasmusaen (Denmark) 

Ruud Uphoff 

Frsns Verbeilct 

Slnon VoortBUi 

aernan Zondag 

and tiany others. 

Translations: 

Fred Behringer (Germany) 

Willem van Aspecen 

Frank Bens 

Albert v.d. Beukel 

Rene Hettfleisch 

Coen Kleipool (France) 

Haarten van Lieshoai 

Antoine Hegens 

Piet K. de Vriea 

and many others. 

Illustrations/cartooros: 
Antoine Megena 
Piet K. de Vriea 
Frank Vergoossen 
Gonda Engel 

Nothing may be reprinted in 
part or in whole without 
permission from the publis- 
her. Practising of the pu- 
blished programs and hard- 
ware •etc. without responsi- 
bility of the publisher and 
for personal purpose only. 
The articles to be publis- 
hed have to be written by 
the sender, 

DE 6502 KENNER appears in 
Febr, Apr, Hay* i^^f, 
Oct, and Dec. 

On frontpage is the D0S6S 
controllercard, developed 
by lOBX MsntMr Ad Bimuuer. 
cm/m^t B. Vlaschedijk 
'0^:- A. BBilkel 

Phpto : Pk, Visschedijk 

Copyright (C) 1967 KIH Ge- 
teollcess Club Nederland. 
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UITNODIGING Landelijke BIJEENKOMST 21.5.87 Almelo 
DE 6502 KENNER op de BENELUX Computerdagen 25.4.87 Roosendaal 
Van de redaktie 
OOHMaOORE 
jaap oe "Hoop 
Gerard van Roduffi ' 
Nico de Vrlea 
BC6S/OCrOPOS 
Lei I Kasinussen (Demnark) 
Coen Boltjes 
Peter Linstr^ (Denmark) 

ATARI 520 sr teeooo) 

Jan veminraen 
APPLE 

Marcel visser 
Frans Verberkt 



AODRN ATOM 
Frariir TR^boasen 
DOS65 

uram de Bruine 
Ernst Elderenbosch 
Andrew Gregory (England) 

6845 

T6rty Lehaen (Belgium) 
JOWICR 

Mtixii v.d. Meutter (Belgium) 
6502 

XnEoh Hfiller 
Hardware 

•ivan v.a. Hoiit>erg ' 

FORTH 
trans Bakx 
Fridus Jonknan 
BASIC 

waliy Boer 
BASIOOOB 

rn . Hotmeister (Germany) S 
Marc Lachaert (Belgium) 
Brieven aan de redaktie 
Vraag en aanbod 
Diversen 



A Digital Voltmeter for the Commodore 64 
Commodore I/O port visible on monitor 
Een paar tips voor Cotimodore Basic 

Screen Dump for Kolorator 
Expansion of OHIO DOS Extensions 
How to get more memory space 

Plot-Points (written with LATTICE C-compiler) 

Hex/Aacii-dump. Userfriendly and interactive. 

^PfSm tAwaiai 



2. 
2. 
Z. 

3. 
45. 
34. 

7. 

16. 

& 

11. 

17. 
32. 
34. 



.. im PtflpnrttaMr MLlMp. tor iMll ^atfihic ficints. 42. 

. . Acia 65C51 and modems 29, 
. . Centronics input for DOS65 or JUNIOR computer 31. 
.. How to modify the Elektor 64K memory card for 32. 

■ ' •).-)■• ^ 

. . Hoe wordt de video controller 6845 geprogrammeerd 33. 



Printer routine 



46. 



.v.. Handige subroutine voor de 6S02/Handy subs 6502 SB. 



?eem m Ihe 3miot 

Towers of Hanoi 
Sliding Grid 



41. 

39. 
43. 

20. 

35. 

22,34,45. 
2>32,36. 
37. 



Print your articles, programs etc. with a new ribbon and use 8 lines/inch 73 lin«(/psge 
max. . 

iiBi«as jwe wH^t^tss* peogww in English unlearn yoii need help to do it. 

He need more members to do more for our members. Look around in your family, among your 
friends and on your job. Send the names and addresses of 6xxxx-users to the editorial 
office. They will be sent information about our club, to let them join our cltdj. 

nSASB YCXJR 1988 SOBSCRIPTION BEFORE DBCBHBER 1987. 
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** LANDBUJiaS BUEOOgGiet DB fiS02 REMiERS ** 



IS«£UM 



Hijkcentruin 't Veurbcook 

Jan Tooropstraat 27 
7606 JS ALMELO \ ' 

Tel . : 05490 - 10353 

Routebeschri jvinq; 

Voor degenen die al eerder op bi jeenkomsten in Almelo 
wareni is het eenvoudig: U rijdt naar de U bekende lokatie 
«tan de Jan Steenstraat. Daar aangekomen gaat U atee^ 
rechtdooc, tot U niet verdec kunt. Hiec gaat 0 lifi)csa£. 
Dit is de Jan Tooropstraat. Het de bocht naar rechts. 
Na plm. 20 meter links, 't Veurbrook. 

Vanuit het westen en het zuiden (via A1/A35) ; 

'i. Aan ~Ret einae van~3e sneiueg recntsat. ffij het eerst- 
volgende kruispunt MET STOPLICHTEN linksaf, richting 
Wierden/Zwolle . Bij de eerstvolgende stoplichten recht- 
door. Bij de volgende stoplichten (links BP tankstation 
en Opel garage Kamp) gaat U rechtsaf. 

2, U rijdt nu op de Windmolenbcoeksweg. Doorrijden tot 
over de brug, dan de eerste straat rechts. Dit is de w. 
van Koni jnenburgstraat. Na plm. 50 meter rechtsaf. Dit 
is de Jan Tooropstraat. Het de bocht mee naar links. Na 
plm. 50 meter aan de rechterkant 't Veurbrook. 



Vanuit het noorden (via dc N36) 
1. BIJ 



k«nhui3. tJ bavfMfc %Mm nu ep m t&iS^eg m Klmlo. 
Oeze ueg blijyen volgen tot U het BP tanatation ziet. 
Bij dit kruispunt linksaf. Zie verdec punt 2. 



Het het openbaar vervoer 

7SrraT~Ns station Alroelo met de stadsbus naar de wijk 
Molenbroek. Uitstappen bij de halte Windmolenbroeksweg . 
Schuin tegenoer de bushalte staat een wegwijzer. Daarop 
staat ook 't Veurbrook vermeld. 




tOEGANGSPRIJS : FL. 10,< 
PROGRAHWA 



Zaal open. 

Opening door de gastheren Adri Hankel en Erwin 
Visschedi jk. 
10.30 COMHUlftCATIEDAG. 

De nadruk zal liggen op het uerken met computer en 

modem, 

Koff iepauze. 

Forum. Aan het fcjrum kunnen vragen gesteld worden 
van allvrUis^ard. 

INPORMEEL GEDEELTE. 

Tijdens het infcrmeel gedcelte kunnen ledcn vrij met 
elkaars ervaringen kennis maken. Leden brengen bun 
systemen mee en demonstreren dit aan de aanuezigen. 
NEEM DAAROM UW COMPUTER MEE 1 ! ! 

Het verdient aanbeveling ook een o| meerdere 
verlengsnoeren mede te nemen. 
MARKT. Op eigen ta£el(s) te regelen. 
17.00. Sli^tifl9«, . .... 



11.30 
11.45 

12.00 
13.00 



REDAKTIONEEL 

Deze editie is voor Uw redaktie opnieuw van bijzondere 
betekenis. U zult merken dat het aantal artikelen opval- 
.jAnd veel is. Dat is geen toeval. U zult ook merken dat in 
W<iel qevallen de teksten duidelijker leesbaar zijn dan we 
geuend uaren. Het is nog even afuachten wat het effekt zal 
zijn wanneer de editie daadwerkeli jk op de deurmat ligt, 
maar we hebben goede hoop dat ook de drukker weer wat 
betere resultaten weet te bereiken nu deze nogal wat 
nieuwe apparatuuc heeft aangeschaft. Wei zullen de teksten 
kleinere letterCormaten bevatten, maar door de verhoogde 
leesbaarheid hopen we h«t storende effekt van condensed 
printen met de matrixprint6r zoveel mogelijk uit te gaan 
schakelen om tegemoet te komen aan die enkeling in de club 
die toch moeite ermee had om dat te lezen. Een voordeel 
dat hieruit voortvloeit is het feit dat er wederom roeer 
artikelen in ma «ditie terecht kunnen. ff^.-feiti memt 
echter vergezel# gMan, willen we niet net e<en lege eeip^ 
buffer komen te zitten op de lanpe termijn, met een ver- 
hoogd enthousiasme om ta.g»» pe0e^/tmm*S in te sturen tet 
publikatie. 

In de resultaten van de enquete die door h«t twatuur in 
1985 werd gehouden komt o.a. de wens voor om een rubriek 
te openen waarin problemen met de Octopus aan de orde 
kunnen komen. Hierop wil ik graag even reageren. 
Als het zo is dat een dergelijke rubriek niet bestaat, dan 
zou men positief kunnen denken dat het met de Octopus 
prima gesteld is, er derhalve geen problemen bestaan. Men 
kan ook denken aan het feit dat het wat gek zou klinken 
als deze computer geen problemen kent» maar dat de leden 
die problemen niet kenbaar maken via DE 6502 KENNER. Noch 
het een, noch het ander is het geval, voor zover ik dat 
kan overzien. De Octopus heeft m.i. zowel aan de hardware- 

gelaten. Vbordeel v6br de club is dat er din heel wat - 1« 

doen valt, nadeel is dat men nogal eens denkt dat de 
redaktie al die problemen zelf kan konstateren en daarover 
publiceren. Niets is minder waar. Bovendien is het zo dat 
leden allang van alles en nog wat over de OcteptMi'-'lliM^ 
buiten brengen, gelukkig mccstal via het clubblsd. Echtef 
het is niet zo dat daaruit de noodzaak van een vaste 
rubriek valt at te lijden; het is daarenboven te weinig om 
er vaste ruimte voor te reserveren. Wat uel uit deze kan 
worden geleerd is dit: de leden doen er goed aan deze 
behoefte onder ogen te zien en er zo mogelijk aan mee te 
werken dat problemen met de Octopus in alle gevallen aan 
de redaktie worden toegezonden. 

Zo was er in de enquete ook een opraerking dat in de edi- 
ties "niet helemaal uitgewerkte idee^^n" voorkwamen. Het is 
mij niet geheel duidelijk geworden wat hier precies mee 
bedoeld werd. Wat dat betreft is de probleemstelling niet 
helemaal uitgewerkt door de inzender, maar dat klinkt als 
terugpesten, terwijl ik het hier juist aanroer omdat ik er 
serieus mee om wil springen. Het zou mij een troost zijn 
als hier wat meer over gezegd zou kunnen worden. De inzen— 
der moet dit nog wel herkennen en die verzoek ik daarom- 
trent neC nti j; kontokt ef> t« nemen, zodat er aandacht aan 
besteed kan worden, en -zd dat mogelijk is- oplossingen 
voor bedacht. 

Er kwam ook de uens dat er moer kleine artikelen in de 
edities moesten komen. Met deze editie is die wens, al- 
thans voor dit moment, in vervulling gegaad^ ' 0£ «an die 
wens voortaan gevolg kan worden gegeven is rttet' 'aan de 
redaktie maar aan de leden zelf om daarvoor te zorgen. 
Daar komen imners de inzendingen vandaan. Voor de redaktie 
is het in elk geval een plezierige bi jkomstigheid als er 
veel niet te omvangrijk materiaal in de copy-buffer zit. 
Anderzijds is de redaktie ook weer heel blij met grote 
inzendingen die kwalitatief van hoog nivo zijn. Dat is 
voor de hele club meer dan alleen een visiCekaartja e(> 
aandachttrekker tot over de landsgrenzen. 



Albert v.d. Beukel, Van Slinqerlandtstraat 19, 
Delft, The Netherlands. 



NL-2623 TT 



I like to know whether there are members of the club that 
typed in the ADDRESS PROGRAMME of the Elektor's Computer 
Special nr. 1. The programme will not run on my computer, 
so I like to know what's wrong with it. 



tony Lehsen, Kloosterstr. 24, B^3SB0 Nfcvpeltr ielgie, 

Ik heb de oorspronkeli jke software van mijn JUNIOR veran- 
derd. Zo zit bijv. de basismonitor en videosof tware in 
Eprom vanaf adres $F2C0. Ik ben nu bezig de cassetterou- 
tines van Ad Brouwer uit edities 30 en 31 van DE 6502 
KENNER aan mijn systeem aan te passen, doch dit wil nog 
niet zo best lukken. 

Vraag: Heeft ieroand deze cassetteroutines ook op z'n sys- 
teem draaien? Wil deze zich dan met mij in verbinding 
stellen? 

I changed the original systemsof tware of my JUNIOR. For 
instance, the base-monitor and videosoftware are in Eprom 
new £^ |tQia»iS9 ^20. I am adapting now the cassetterou- 
tines of Ad Brouwer as published in issues 30 and 31 of DE 
6502 KENNER, but it won't work until now. Has anyone good 
running cassetteroutines aa mentioned on his System? 
please contact with me. 



KUNT U EN WILT U CARTOONS TEKENEN VOOR DE 6502 KENNER ? 
Stuur het naar de redaktie, U doet er velen plezier mee. 
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> ie.mS^mi yOLTHBTBR FOR THE GQHMGOCRE 64 « j. 

DVM VI. 0 

Authoc: Jaap de Hoop, The Netherlands. ' ' ■ 

Transl: Piet de Vries, The Netherlands. 

EXPUNATOty NOTE 

?he design of this "low cost" dif^ital '^t^Sltl^tB |9' -m^ 
SSfiecially for the Commodore 64. 

The heart of the circuit is IC4, an AD 2020 made by Analog 
Devices or a CA 3162 produced by RCA. The latter is the 
cheapest (Hfl. 18/98). The circuit can be split -up into 
tvo {»ar6a> tto >K«#d out mt$ the pre-ainpli£i«i^ tt^mt 
ntttdiit the amplifier the cieeult has a range fron :r:i>micf 
to 999 rav, with the amplifier from -9.99V to 99.9V. The 
internal resistance is in all measurereuiges 1 HegaOhm. The 
sample speed is determined at 96 Hz. 

The read out part , ■ ■ i 

The heart of this is the earlier mentioned CA 3162. This 
chip is designed to drive a BCD/7 SEGMENTS DECODER. This 
drivihg is done in a multiplexed wayi see the timing 
diagrams. 

The program is so designed that at the at the negative 
trailing edge of MSD, NSD and LSD the at that moment valid 
BCD word is taken over by the computer. Also Information 
aoout the state of the RANGE SELECT switch is taken over, 
ao the program 'knows' in which state the circuit is. 

" The pre-amplifier stage 

The heart of the pro-amplifier stage is formed by three J- 
FET OPAMPs LM 356 (Hfl. 3,06 a piece). The high impedance 
is gained by using these OPAMPs. As protection diodes I 
used transistors which I switched as diodes. This because 
of the fact that transistors have a smaller leakcurrent in 
backward direction (1 nA instead of 20 nA). The input can 
be used floating as well as not floating {signal to mass). 

The construction 

>- Site hmtt 'w>^: In ibt» ^muks a geimr-'^i^'itr^im'-i^^ b6 done 
oh a hole-bbard. 

- lilhen you don't use IC sockets you should instal IC 3 
during the tuning procedure. 

- The pre-amplif ier stage needs some more attention. Make 
good mass-connections, use short si9lMvt««« imA «6«w 
cable to avoid jaraner. 

- To be totally independent of the C64, the most simple 
way is to use a plug that fits into the userport. There 

are 9 connections to be made, PBO PB7 and a mass 

(don't forget!). Check U\e connoctiana, ^rnada and he 
cacefull when switching on the power (PtA'S Sem*t liV% 
forever when a short circuit occurs). 

- After building and checking the circuit, the test- 
program has to be loaded. In this article is an example. 

- The big moment, switch on your Coinnodore, circuit on, 
run tile testprogram. 

- When the circuit and the program are correct, data will 
flow over the screen, when not something is wrong. 

- The program as well as the circuit are build and tested 
in practice by myself and worked correctly. 

Applications 

There are according to me a number of nice applications. 
E.g. a slow A/D converter. By writing a program in 
machine-code that reads the DTA at maximum speed and 
stores the data in the internal memory of the Conmodore, 

By using a different converter, there are other magnitudes 
you can measure, e.g. resistance, current, frequency, 
temperature and light intensity. 

It is also possible to measure at a longer time-scale, by 
referencing to the systeracode of the Commodore. E.g. the 
conduct of the temperature during a day with every half an 
hour a sample. The measured signals can be transformed 
well in visual information with aid of the graphical 
possibilities of the Conmodore. 

The circuit is made for the Commodore 64, but can easily 
be adapted to all other computers with 8 free wires. The 
number of 8 can be reduced to 6 (with range select) or 5 
(without range select). It is possible to use only the MSD 
^Mii 'i^'jMSSMei aiiA tae isse iMecnal delays to determine SSB 
ahStSD. - • •. , 

I think that thcK« nee lots of possibilities for m 
inventive progrannier. 



Program for reading the DVM-module 



49152 0 

49153 0 

49154 0 

49155 0 



49156 169,0 
49158 141,3,221 

49161 173,1,221 
49164 41,64 
49166 208,249 
49168 173,1,221 
49171 141,0,192 
49174 41,128 
49176 208,5 
49178 169,1 
49180 141,3,192 

49183 173,1,221 
49186 41,16 
49188 208,249 
49190 173,1,221 
49193 141,2,192 
49196 41,128 
49198 208,5 
49200 169,3 
49202 141,3,192 

49205 173,1,221 
49208 41,32 
49210 208,249 

49212 173,1,221 
49215 141,1,192 
49218 41,128 
49220 208,5 
49222 169,2 
49224 141,3,192 

49227 96 



VAR 
VAR 

VAR 
VAR 
START 
LDA t 

$m $ 

BCDH 

LDA $ 

AND « 

BNE 

LDA 

STA 

AND 

BNE 

LDA 

STA 

BCDL 

LDA $ 

AND 

BNE 

LDA 

STA 

AND 

BNE 

LDA 

STA 

BCDN 

LDA $ 

im § 

mm 

LDA 
STA 
AND 
BNE 
LDA 
STA 
END 
RTS 



BCDM 

BCDN 
BCDL 
RANGE 

0000 0000 

DATA RBG 
OlOQ 0000 
BCGH 

DA'm ms 

BCDH 

1000 0000 
BCDL 

0000 0001 
RANGE 

DATA REG 

0001 0000 
BCDL 

DATA REG 
BCDL 

1000 0000 
BCDN 

0000 0011 
RANGE 

DATA REG 

mm o@90' 

DATA REG 
BCDN 

1000 0000 
END 

0000 0010 
RANGE 



DATA WORD DURING MSD 
DATA WORD DURING MSD 
DATA WCKD DURING LSD 
RANSE COCe 

MSD ACTIVE ? 

IF YES: SAVE DATA WOm 

mm ACTIVE ? 

IP tBs: mm (xxss • i 

LSD ACTIVE ? 

tr wms swm mm ^fgmi 

%t ISS't RANSB' CODE: ' 3 

IF w: ^m-mant'mBB 

BOMGE ACTIVE ? 

IF YES: RANGE CODE = 2 
OUTPUT CYCLE COMPLETED 



Data Format 



PBO 
PBl 

PB2 

PB3 
PB4 
PB5 

PB7 



BCD BIT 
BCD BIT 
BCD BIT 

BCD BIT 



LSD DIGIT SELECT 
NSD DIGIT SELECT 
MSD BIGIT SELEXX 
RANGE SELECT 



POS LOGIC MULTIPLEXED 
POS LOGIC MULTIPLEXED 
POS LOGIC MULTIPLEXED 
POS LOGIC MULTIPLEXED 

NEG LOGIC 
NEG LOGIC 
NBG' USfpC' 



PB0-PB1-PB2-PB3 



These four bits form together a BCD data word. Three BCD 
data words form together the sample-value. The three BCD 
are named MSD, NSD and LSD (Most, Next and Least 
Significant Digit). Which of the three BCD words is at the 
output ia indicated with the DIGIT SELECT lines. 

m4-PB5-PB6 

These wires indicate which BCD word is available at the 
output. One of the three wires is low, the others are 
high. The line that ia low indicates that the related 
^Itt is active. 

PB7 

This wire indicates at which range the digital voltmeter 
is set. 



PB7 low during MSD 
PB7 low during NSD 
PB7 low durifuj LSD 

Special sample values 

BCDH BCON BCOL 

1011 1011 1011 
1010 1010 1010 
1010 XXXX XXXX 

Power Supply 

5V POS - 20 mA 

5V NEG - nil 
12V POS - 14 mA 
12V NEG - 14 mA 



inputrange IV 
inputrange lOV 
inputrange lOOV 



overrange positive 
overrange negative 
indicate negative 



3 



□ 



KEMMER 



Variable BCDM 

Meinsry locaCien: 4tIS2 

Cexitents : see har«3ware specifications 

Variably! 



Cantents : se« harauaee sp^l£4siil£lteti« 

Memory location: 49154 

Contents : see haccfoare specifications 

Variable RANGE 

Memory location: 49155 

contents : O - after loading the program 

1 - 1 Volt RANGE 

2-10 Volt RANGE 
3 - 100 Volt RANGE 
all other values are not valid 

memory organisation 



First address 
Last address 
Start address 
Positions 



49152 
49227 
49156 
75 



Example BASIC program for test of the DVM 



Tuningprocedure for the DVM 

1. IC3 is removed or not installed if it's not on a 
socles t « 

2. On the print pin 6 of IG3 is eonnected to tfte itiass. 

3. Start the testprogram. 

4. With PB3 (zero adjust), the reaAsut is set to 090. 

5. Stop the testprogram. 

6. Remove the massconnection of step 2. 

7. Install IC3. 

8. Both inputs (3ignal+, signal-) are connected to the 
mass. 

9. Start the testprogram. 

10. With P2 (zero) the readout is sot to 000 again. 

11. Both inputs are disconnected from the mass and they 
see both connected to a voltage of about 3V with 

^ the taass. 

12. With Pi (common mode rejection) the reaai^ai 'm ^sm tl 
000 again. 

13. Both inputs are disconnected. Signal + bs> be 
connected to a well known voltage, e.g. 800 SW. 

14. With P4 (gai»«MB«:l BSa^eafe i» Wfe to the Jtnown 
sample value: ^ei'Sa this mcaiq^e 390 wH:. 

List of ceaBbnSits for the DVH 

Rl lOK 

R2-R3 180K 

R4-R5 IMS 

R6-R8 lOK 

R9-R16 lOOK 

R17 IM 

R18-R25 lOOK 

D1-D4 as a diode connected transistor BC557 

SI dubbeldeck 3-state switch 



100 PRINT "<FF>" 
110 PRINT " " 

120 PRINT "DIBlTAt VOLTMETER Vl.O" 

130 PRINT " " 

140 PRINT "LOADINS^ fffilMQR*" 
150 FOR IN = 1 lei'lfi: 
160 READ DA 

m mm t^mi*m),Dh 

im m 

190 PRINT " " 

200 PRINT "WHEN YOU DON'T SEE THIS TEXT DISAPPEAR" 

210 PRINT "THERE IS A HARDWARE FAULT I" 

220 SYS(49156) 

230 M=PEEK(49152) AND 15 

240 N=PEEK(49153) AND 15 

250 L=PEEK(49154) AND IS 

260 R=PEEK( 49155) 

270 IF M=ll THEM PRINT I nn l- UHl "; Q03X3 220 

280 IF N=10 THE.N PRINT " '-"J GOTO 220 

290 IF R=l THEN T5="l V MAX" 
300 IF R=2 THEN T$="10 V MAX" 
310 IF R=3 THEN T$="100 V MAX" 
320 ZE=0 

330 IF H=10 AND NOlO THEN ZE=1 

340 IF ZE=1 THEN PRINT ; (N*10)+L,T$:GOTO 220 

Sia iP ZE=0 THEN J (M*100)+{N*1©)*I.*1»*«® 



1000 
1010 
1020 

mm 

X04d 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 



REM DATA VELD 


DATA 


0 


DATA 


0 


mxh 


0. 




0 


DATA 


169,0 


DATA 


141,3,221 


DATA 


173,1,221 


DATA 


41,64 


DATA 


208 , 249 


DATA 


173,1,221 


DATA 


141,0,192 


DATA 


41,123 


DATA 


208,5 


DATA 


169,1 


DATA 


141,3,192 


DATA 


173,1,221 


DATA 


41,16 


DATA 


208,249 


DATA 


173,1,221 


DATA 


141,2,192 


DATA 


41,128 


DATA 


208,5 


DATA 


169,3 


DATA 


141,3,192 


DATA 


173,1,221 


DATA 


41,32 


DATA 


208,249 


DATA 


173,1,221 


DATA 


141,1,192 


DATA 


41,128 


DATA 


208,5 


DATA 


169,2 


DATA 


141,3,192 


DATA 


96 



IC1-IC3 
IC4 

jm 
ice 

P1-P2 

P3 

P4 

a 

:S3 



LM356 

CA3162 of AD2020 
74tse2 

10 turns tuningresistor 25K 
10 turns tuningresistor 47K 
10 turns tuningresistor lOK 

I«H luF 
HKB 220HF 



BOEKINFORMATIE 

FORTH een praktische introductie. 
Auteur: Leo Brodie (Vert: Luk van Loock) 
Uitg. : Maarten Kluwec* mtMftm^/*pBl^cx>en, 

1985, 235 p., Mli S9,56 
ISBN 90 6215 1167 

De laatste jaren genlet de prograitmeertaal FORTH een sterk 
toenemende ..pe$i^»sM»^-* iOEW iSanldtidife tm. «mabm,imn 
het feit, <tet N(fc «wa W«l*i3«t«e EaSl l*.' MBfe-,, -l* .t«it3- 
kertijd: ■ > 

- een hogere-ordetaal 

- een assembly-taal 

- een operating-system 

- een set developnent tools 

- een filosofie m.b.t. het ontwerpen van software. 

FORTH beschikt daarbij over een groep van zeer krach%lg» 
standaard commando's gekoppeld aan een mechanisme, waarmee 
u uw eigen commando's kunt definieren aan de hand van 
vorige definities. Een en ander brengt met zich mee, dat 
FORTH snel, compact, flexibel en overdraagbaar is. Kortom 
FORTH wordt daacsK'Hafe jKffiS' KiM^lfaat in: 

- de wetenschap 

- de procescontrole 

- de data acquisitie en analyse 

- draagbare intelligente apparatuur 

ovecigeres: de loertijd van mma cali^ief ; V9«3t tartee 
dan bij andere programmeertaien. Oirettuig mmlt met dit 
boek, dat raomenteel als het beste op dit gebied wordt 
beschouwd. 

De engelstalige uitgave is getiteld: Starting FORTH. 



mm im. m.miumB: > 

Maarten van Lieshout, Lambertushof 72, 5667 SG Geldrop 
roept op tot het schrijven van een programma voor de 
"Computerakoop" van Elektuut ten behoeve van DOS65 + gra- 
£ia(»e kaart. 



WILLEN ZIJ DIB ZENQfttUTBtM ZUfN DIf (X<(^VEN BIJ DE vmWIlE 



15 5 a 5 



lUul-A. - -lliiil I III - At 




Utcr I/O 





In. 




1 


CNO 








MAX, lee mtl 




ntr 






am 




s 


Wl 




6 


CNTJ 


1 


7 


SPJ 


1 


B 


PC2 




9 


SER. ATN IN 




10 


« \KC 


aux. iw 


It 


9 >MC 


MAX. 100 1>A 


13 


GND 






Kn 


Typ. 




A 


CND 




S 


FIAC2 




c 


reo 




D 


PBI 




I 


P»2 




f 


rai 




H 


PU 




J 


nj 




K 


PS6 




I 


n7 




M 


M2 




» • ,• 


GNO 





1 a a 4 $ « T ■ « 10 I1 12 



leOEfHJKLUN 



5 




f 



2^Ei 5 D ^ ^<mmm:Ft :^ 

Date.! 23/0&/86 Page: 0001 



4720: 
0005: 
0010: 
00151 
0020: 
0025! 
0030: 
0035 s 
0040! 
0045: 
0050: 
0055: 
0060: 
0065: 
0070: 
0075! 
0080: 
0085! 
0090: 
0095: 
0100: 



CD70 



0215: 
0220: 
0225: 
0230: 

0240: 
0245: 
0250 { 
0255 s 
0240: 
0265: 
0270! 
0275: 
0280: 
0285 s 



ORB $CD70, 
«lltilt«tiiliiiiilfiitt*ti*iittiiiii 



i 
i 

« 
* 
« 
t 
« 



SCREEN DUMP FOR KOLORATOR 
on ECi»5 a«d Epson 

by Leii Rasnussen, Parkvej 1 
DK 4534 M#rve. jun'86 



» 
i 

» 

i 



*««*««««i»t»itit**«»«t««**i»ftt*«it»« 

1 ,- . .■ 

This routine for kolorator (laviqne- 
Meyer) enables a hardcopy of screen. 
Prt.ctrl codes are in Epson standard 
All the different graphic modes can 
be used, and a fraction of screen 
can be printed. i#f){ti»tfli the ro- 
utine put the adrs. for F and K in 
the graphics' jump-table. 



0105: 


El 50 


CMl) 


EQLI 


*E150 


qdp regs 


0 110: 


El 58 


MSBX 


EQU 


CMD 


+08 


0115: 


E l 59 


imt 


Emi 






0120: 


E15A 


MSBY 


EQU 


CMD 


<•« 


0125: 


E15FI 


LSBV 


EQU 


CMD 


+08 . , 


0130: 


£164 


COLOI* 


mu 


CHD 


+ 14 


0135: 


CO 81) 


READY 




*coeii 


wait for qdp 


0140: 


C7D3 


STCNTl 


EQU 


*C7D3 


two data cmd 


0145s 


C949 


STCNT2 


EQU 


*mvi 


three data end 


0150: 


C66A 


SETMOD 


EQU 


■tCfc6A 


Tingle cmd 


0155: 


t;A55 


ENDHOD 


EQU 


$C655 


mult, end 


0160: 


CA2D 


ENORH 


mn 


»CA2[) 


restore coords 


0H.5: 


CF80 


MIRHX 


EQU 


$CEBO 


software regs 


0170! 


CF8A 


PIXBUF 


EQU 


MIRHX 


+0A 


0i-7S-s 


CF94 


MODE 


EQU 


MIRHX 


+ 14 


0180: 


CF9E 


DATA2 


EQU 


MIRHX 


+ 1E 


0185: 


CEAO 


DATAl 


EQU 


MIRHX 


+ 20 


0190: 


CFA2 


CAT AO 


C8U 


MIRHX 


+22 


0195: 


2322 


OLITABl 


EQU 


$2322 


d 0 s 0 u t p u 1 1 a b 1 e 


0200: 


2343 


PRINT 


EQU 


*2343 


print chr in (A) 


0205: 




SKIPOC 


EQU 


$25Af 


test spc. chrs 


0210: 




STROUT 


EQU 


*2D73 


Qdljlttl string 



mn AB f4 Ef 

CD73 30 04 
CD75 4C D3 C7 

C07S 20 

CD79 A9 00 
CD7B 49 01 
CD7D 80 7A CD 
CD80 FO 28 
GD82 38 



Fraction, define a Mindow 

I ■ ; 
F LDA MODE "FxfroWiHtOjyfrifw 

BMl X.YFLAG 
JMP STCNTl 



IKJXEIST 

mi 




m 



TEST 



m 

TyT'Tf"" tfy""" affiiu 

Iwfll ■ Wm mm mu *UiMMi^ m 



LINEBUF MX 20 »pi»-line5 to prinl 

X.YFLA6 LDAIH fllplltt^ ♦or first 

EORIM 101 and second set #1 eid: 
STA X.YFLAG +01 
iff YFORNAT 

XFORMAT SEE first set 



0 
? 

10 
II 

M 

n 
ij 

15 
16 



13 
19 




7 
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0290 


CD83 


AD 


A3 


CF 


LDA 


DATAO 


+01 


Isbx to 






0295 


CD86 


8D 


A5 


CE 


STA 


XTILl.SB 


+01 








0300 


CD89 


ED 


Al 


cr 




-dAtAt 


*m 


IsbK froi 






0305 


CD8C; 


8D 


4B 


CE 


STA 


INILIN 


+ 05 


Isb of chrs 


to print 


% 

f' 


0310 


CD8F 


AD 


A2 


CF 


lU 


DATAO 


iTisbx 


to 




0315 


CD92 


8D 


9B 


CE 


STA 


XTILHSB 


4 0! 








0320 


CD95 


ED 


AO 


CF 


sec 


DATAl 


msby 


from 




) 


0325 


CD98 


8D 


4C 


CE 


STA 


INILIN 


+06 


«sb of chrs 


to print 




0330 


CD9B 


AD 


Al 


CF 


LDA 


DATAl 


*©t 




I 


0335 


C»9B 


BD 


4F 


c:e 


STA 


XSTART 


+01 








0340 


CDAl 


AD 


AO 


CF 


lU 


DATAl 










OMS: CDA4 


BD 


50 


CE 


STA 


XITMT 


♦ 03 






1 


0350 


CDft7 


4C 


55 


C& 


•">(> SUP 




get 


next set of 


end 


035e) 
























m 




CF 


VFORHftT tti 




♦41 


s«tdfl'ii ftet« 


Isby from 




03 A 5 


CDAD 


8D 


33 


CE 


STA 


YSTART 


+01 








0370 


CD By 


ED 


Al 


CF 


SBC 


DATAl 


+ 01 


1 & b y to 






03 75 


CDB3 


4A 






titRA 




div. 


8 






03FI0 


CDB4 


4 A 






I SRA 












03.85 


CD&5 


4A 






LSRA 












0390 


CI)B6 


AB 






TAY 












0195 


CD87 


C8 






im 




• tniiBUo one line 




t#o 


. Cl)B8 


til 


78 


CD 


STY 


I INEBUF 










0 4 1 0 

04i;j 

0420 

04?S 
0430 
04 SS 
0440 

04 45 

0450! 

0455: 

If 

0170! 

^mmt 

0485: 
0490: 
0495; 
0500: 
OiOS: 
#ft#i 
0515: 
0520! 
0S2St 
0530: 
0535: 
0540! 
0545: 
0550 i 
0555 s 
0560! 
056Ss 
05701 
0575: 



JHP SETMOD end of elBd 
Kopi , St r eeii dump 
"K--t,n.,v" 

" - : -= pix on -> dot off 
'*k pj^ii on -> dot m 
"t : ^abl»Utor 
"«i : gr a. mode 0. . . 5 



I DA mm ' ^ 

BMI HARDCOP 

JMP S1CNT2 ' 

2d lines 



It, 



CDC7 

CDC 9 
CDCC 
CDif 
CDCE 
CD DO 

mm 

CDD6 
CDD9 
CDDB 
CDDD 
CDDF 
CDEl 
CDE4 
CDE7 
CDEA 
CDED 



A2 03 
BO 58 
48 
CA 

10 F9 
AD 78 

m u 

AD 9E 
FO 04 
A9 DO 
DO 02 
A9 FO 
8D 72 
AO 9F 
8D 2B 
AD Al 
8D 4A 



ei 

CD 

m 

CF 





if 
CF 
CE 
CF 
CE 



:L:itiew<'ir€i 
H«ll»l:©|s IBttN tot ' 

SAVgRfS LDAX HSIX 
PHA 
DEX 

BPL 
LDA 
STA 

LDA 
BEU 

LDAIH $D0 

BNE GOON 
POSITIV LDAIM *F0 for beq 

BftON STA REVEI*St ^ ^ ' 

LDA DATA2 +01 tabulator 

STA INITPRI +05 

LDA DATA! +01 graphic iiode O...0 
STA INILIN +04 



Si^cr ^coords 



SAVEREG 

LINEBUF init. nmbr. of lines 
LiNiCtIf " ^ ■ 

DATA2 if 0 then positiv pict. 
POSITIV if <>0 then negativ 
for brie 



5 D 
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0580: 


CDFO 


AD 


A3 


CF 




LDA 


DAT AO 




0585: 


CDF3 


FO 


10 






BE6 


YDIH 


iW- ft/t 


0590: 


CDF5 


A9 


CO 






LDA 1 11 


f CO 




0595: 


CDF/ 


bD 


60 


CE 




STA 


ENLAR6E 


+ 01 


0600: 


CDF- A 


OE 


C6 


CD 




ASL 


LINECNT 


afawAli \ m ft Atuf-- H^^- t A A & 


0605: 


CDF I) 


A9 


4E 






LDAIM 


$4E 


■fnr 1 CEi^ •nil' <i@il^t 1 1 


0610: 


CDFF 


A2 


75 






LD X I M 


MULT 


+0 1 


0615: 


CEtl 


ftO 


Cf 








HOLT 


/ 


0620 ! 


CE03 


DO 


Oi 






ONE 


GOON 1 




0625: 


CE05 


A9 


80 




YDIM 


LDAIM 


* O V 


IIU ClIACll^CtHCIll. 


0630 i 


CEO 7 


BD 


60 


CE 




STA 


ENLAi?6E 


4-0 i 


0635: 


CEOA 


A9 


EA 






LDAIM 


*EA 


for non . noQ. noB 


0640; 


CEOC 


A 2 


EA 






LDX III 


lEA 




0645: 


CEOE 


AO 


EA 






LDYIM 






0650: 


CEIO 


80 


86 


CE 


600N1 


SI'A 


ENLARO 




0655: 


CE13 


8E 


87 


CE 




STX 


ENLARO 


+ 01 


061)0 : 


CEIA 


8C 


88 


CE 




STY 


£NLAR€ 


*02 


06 65: 


















0670: 


CE19 


A 9 


60 






LDAIM 


$60 


+or rts 


067S: 








25 




StA 




mmr^mnt mmt extr^ Ifs 


OfcfiO: 


CE IF 


A9 


08 






I D A I M 


108 


turn on printMt 


0685 : 




8D 




23 




S lA 


(JIJI ABL 




0690: 


CE23 


20' 


73 


26 




^ti 




tttltlvite printer 


0695: 


C£7h 


t B 




U] 




HEX 


I835181B6COA00 




CF29 


1 ti 


6U 


U6 












CE2C 


00 














070(1 : 


€,£21) 


A9 


0 (' 






LDAIM 


i 0 0 


Me work with S12*M6 pix. 


0 705: 


CE2F 


80 


5A 


1 1 




STA 


MS8V 




07 10: 


CE32 


AO 


FF 




Y SI ART 


LDYIH 


*FF 


starting row 


0715: 


















0720: 


CE34 


BC 


A3 


Cf 


F'RINI T 


STV 


DAI AO 


+01 outer loop start 




CI? SI 


&•> 








f- V ft i n 


im 




0730: 


(.;E39 


BD 


46 


CE 


r6EN 


I DAX 


INILIN 


header tor eat h line: 


0 735: 


CE3C 


20 


43 


23 




•JSR 


PRINT 


cr , 1 f , gr a . mod , chr. ,,^5 


O740i 












INX 




0745: 


CE40 


EO 


0 7 






CF'X I M 


to 7 




0750: 


Cfc42 


DO 


FS 






BNt 


IbEN 




0755; 


CE44 


FO 


07 








ItTART 




0760: 


CE4^. 


OA 


OP 


1 P 


IN III K 


HEX 






CE49 


2A 


05 


00 












CE4C 


02 














0765: 


CE4D 


A2 


00 




XSTAf^T 


LDXIM 


$ 0 0 


starting colloai 


07 70: 


CE4F 


A9 


00 






LDAIM 


*00 




077Ss 


















O7B0: 


CE51 


BE 


59 


f 1 


NEXTCHR 


STX 


LSBX 


•iddle loop start 


0785: 


CE54 


8D 


58 


El 




STA 


MSBX 




07fOs 




iC 


SB 


El 




STY 


LSBY 




0795: 


CE5A 


A9 


00 






LDAIM 


too 


clear pixel buffer 


0800: 


CE5C 


80 


8A 


CF 




STA 


PIXBUF 




0105 i 


CE5F 


A9 


80 




ENLARGE 


LOAIH 


$80 


is normal « ICO is enlarfetf 


0810: 


CE61 


8D 


75 


CE 




STA 


MULT 


♦01 


08 1 5 : 


CE64 


18 








CLC 






0820: 


















0825: 


CE65 


A9 


OF 




BETPIX 


LDAIM 


tOF 


inner loop start 


0830: 


CE67 


8D 


50 


El 




STA 


CMD 


enter mfree mode 


OiiSr 


mm 


fO 


iD 


m 




mn 


READY 


wait for gdp 


0840: 


CE6D 


AD 


64 


El 




LDA 


COLOR 


pixels are in W. .b3 


0845: 


CE70 


29 


01 






ANDIM 


$01 
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/« PLOT_POINTS '/ 

/«. vismm ms3.mm */ 

/» J . H . VernlBunen */ 

/» V. IJsendijkstr 128 */ 

/« 1442 CS PURMEREND '/ 

/' 

/» This program is made to get experience with LAttXCE - 0 oa tl» V 

/» ATARI 520 ST. ( 68000 processor ) •/ 

/« It Piic^ » Sie^tim on tbe cetteeit o£ HhSeb the cdordinates are given in */ 

/' the irf ay ^points' ; in thi«-thlJi enwf a small aeroplane. V 

/« The plotting takes place on an invisible screen pointed by 'beeld'; »/ 

/» after drawing the visible and invisible screen are changed. '/ 

/« After plotting the figure again with another offset it gives the •/ 

/• impression to move over the screen. : ." */ 

/• The screen must be seen as an array of : */ 

/« - Horisontal 40 words of 16 bits ( 560 pixels ) */ 

/« - Vertical 400 lines ( 400 pixels ) »/ 

/• SO this needs a continuous piece of 32K bytes aemory. */ 

/* •/ 

/*3*a««aa«e»»«««a«s»ai»*«h«wawa»»«l««= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = * = = = ==* / 

#include "stdio.h" /' include the standard C I/O - routines •/ 
^include "osbind.h" 

#define msbit 0X8000L /' set hi-order bit in word marked as a long word •/ 

#define bmask OXOF /* masker to get the 4 lo-order bits •/ 

#define strip 0X04 /• ROR 4 times = devide by 16 to get the wordnumber '/ 

#def ine streep OXFSFF /• 1 «Oisrt *M bits «et •/ 

#define x fact mm /» tius c^nstsat *10' U8«cl tn eeii^iinwteten with x •/ 

«deeine y~fact 0X09 /• the constant '9' used in combination with y */ 

#define oop t« t<<y fact /* se«ft 2*y_fact = S12 •/ 



/• The array 'points' contains the coordinates to be plotted. '/ 

/• Single dots and connected lines are possible. */ 

/• Each group of connected lines starts wich a move ("DOT"). Therefore •/ 

/• each group has a pointer to the next not direct connected line. '/ 

./* thm apoMpins eC tmimtm is as f«ilXeiis : * / 

/* Iv* poititioW t pointer to neset sretaip &f petn^ giving c&mmema lines */ 

/« { the pointer is aluays pointing to the next pointer ) •/ 

/' 2'..k' position : pairs of x - y coordinates '/ 

/' k+l' position : next pointer '/ 

/• The last pointer is a '0' followed bij two •0''s : X=0 ; y = 0 ; '/ 



short 


points[80] = 


{ 


















19. 


-59, 5, 30. 


5, 


43. 


3, 


43. 


-2. 


10, 




-25, 


-4, -52, 0, 


15, 


-44.-1. -32, 


-8, 


23, 


-8, 


42, 


-19, 


49, 


-19, 


38, 


-8, 38,-3, 


13. 


-1, 5, -16, 


3, 


0, 


1, 


9, 


1, 


28, 


3, 


12, 


5, 


J5, 


-585.-4, -21,, 


-8, 


















5. 


3»,-S, 


-s. 


















0 , 


0, 0 


> 


> 

















int aantal =57; /« number of elements in points •/ 

/* mind the first elercnt is pointstOl */ 

int offs_x, offs_y ; 

struct FIG { unsigned short beeld_arr [400] [40] ; } 'beeld, "fysbld, 'logbld; 
/* Great* a t^ype of waisiitteXtt W%& big m f»o» nex^en-map and inlt */ 
/> 3 poittters pointing's Its iSt^limam' */ 



/' Function DOT «/ 
/• Plot one pixel in 'beeld_arr' : The screen pointed by 'beeld' */ 

Kit « sr . y ) 
int X, y- 

{ 

beeld- >beeld_arr[ y ][ x >> strip ] ;= msbit >> ( x & bmask ) ; 
/* Find the word by stripping x and the bit inside the word by masking x »/ 
> 



/*BBB«ss«at«esssssssBSsBKssssKKK«aii«ssaesa«sssssss«sssxasBxssaiSBaassa;ss«&aBs* / 

/« Function HORIZONTAL »/ 
/• Plot a line from xh to x2 with on line y = ylw 

/* Calculate first the nuaber of uords in which all bits have to be set •/ 

MOBIZONTAL ( xw, ylw, x2 > 

iat xw, ylw, x2 : 

{ 

itit XI. sgn.deita ; 
unsigned lo_xl, lo_x2 ; 

register unsigned xcharl, xchar2. x, xb ; 

XI = xw + ( x2 > xu ? 1 : -1 ) ; /» first pixel is already plotted «/ 

xcharl = xl > > strip ; /« find the wordnumber start V 

xchar2 = x2 > > strip ; /« find the wordcount end line •/ 

lo_xl = msbit >> ( xl & bmask ) ; /• mask startbit inside first word •/ 

lo_x2 * asbtt »> < x2 & tauMk ) ; /* aaak last bit Inside last word V 
8gn_delta = xchar2 > xcharl .? i : -i j /• find the direction of the line •/ 

if ( xcharl != xchar2 ) /« there may be words with all bits Set •/ 

{ 

for ( x = xcharl + sgn_delta; x != xchar2 ; x += sgn.delta ) 

beeld->beeld_arrt ylw ]t x ] = streep ; /« plot all bits set */ 

S£ ( xcharl . < xehar2 ) /« pl«it Cx-eK;ik«f« ^ jNt^t »/ 

< ■ 

■ 1» • 0 ; 

• -tmi ( X = lo_xl ; 

X Is 0; X >>- 1 ) XB !« X : /* sample lo bits to be plotted */ 
beeld->beeld_arr[ ylw H xcharl } !- xa ; /* plot thes all at once */ 

xm = 0 ; /« same procedure for bits in hi-order word •/ 

for (x = lo_x2; x!=0; x<<-l)xm:sx; 

beeld->beeld^arr[ ylw )t xetiar2 1 i* xa s > ■ 

«lse .J- \ .v; 

< • . 

xm = 0 ; /« piot-so«s froB rli^t to left •/ 

for ( X = lo_xl; X != 0; x < < = 1 ) xm l« X ; /« hl-order sampling •/ 
beeld- > beeld_arr [ ylw ][ xcharl ] |> xa ; /• plot •/ 

xm = 0 ; 

for ( X = lo_x2 ; X != 0; X >>= 1 ) xm ;= X i /» lo-order sampling »/ 
beeld->beeld_arrl ylw ][ xchar2 ] ;= xm ; /» plot '/ 

> 

> 

else /* xcharl » xchar2 i the first word « the last word »/ 

< 

xm = 0 ; 

if ( xl <= x2 ) /• plot from left to right •/ 

for ( X = lo_xl : ( X >= lo_x2 ) && x ; x >>= 1 ) xm 1= x ; 

else /• right to left «/ 

for ( X = lo_xl ; ( X <= lo_x2 ) t& x ; x <<= 1 ) xm ;= X ; 

beeld- >beeld_arr[ ylw Jl xcharl ] {« xm ; /• plot */ 

> 



/ * = = = = = = = = = = = ~ = = = = = = = as.m-»mummmKmMm9SKmmmmxmmaU:tsMM*m»»*M.mimMMmm.mmmmmmmmummmmm* / 

/* Function VERTICAL «/ 
/* Plot a vertical line from ylw to y2w at x = xl «/ 



VERTICAL ( xl, ylw, y2w ) 



< 

int sgn_delta ,- 
unsigned xcharl ; 



xcharl = xl >> strip ; /• split x in wordnuaber and */ 

X = Dsbit >> ( xl 4 bmask ) ; /* x bttnujabei- •/ 

ssn.delta = y2w > ylw ? l : -i ; /« low to high = downward is positive •/ 
for < yw = ylw + sgn_delta; yw != y2w + sgn_delta ; yw += sgn_delta ) 
^ beeld->beeld_arr[ yw ][ xcharl ] := x ;/• plot every point separate'/ 

/» function Htme^^ */ 
/• Plot a line with M m^iki^'pt 4<$' deer »#i,tti respect to the K and Y- axis */ 
/♦ ( positive or negative } 'tr<M ( xl.sriw ) to ( X2,y2w ). »/ 
/• Mind x2 - xl •» y2H - ylw «/ 

= = « = = = 

DIAGONAL ( xl, ylw, x2 . y2w ) . . » ' . ' ' 

int xl, ylw, x2, y2w; ■ 

{ ■ ■ 

int scn^x, *«ajr s 
register unsigned x, yw ; 

sga_x = x2 > xl ? 1 : -1 ; /• calculate counter x as 1 or -1 •/ 

sgn_y = y2w > ylw ? l : -i ; /« calculate counter y as 1 or -1 •/ 

for ( yw = ylw, X = xl ; yw != y2w + sgn_y; yw += sgn_y, x += sgn_x ) 
beeld->beeld_arr [yw] [ x >> strip ] |= msbit >> ( x & bnask ) ; 

/• plot every point separate •/ 



0 degrees with respect to 



/» function HELLING 

/• Plot a line with an angle < > +-45 and 
/• the X and V - axis. 
/• Divide the line in different HORIZONTAL, VERTICAL or DIAGONAL lines 
/* and call this routines for every piece of line 

HXtLIliS < xl. ylw, x2, y2w ) 
int XI, ylw. x2, y2w; 



roister int x, yw ; 

unsigned delta_x, delta_y, hd_points ; 
Int sgn_x, sgn_y, h_polnts, hx_points. 



hy_points , aant_str 



x = xl ; 

Sgn_X = X2 > X ? 1 : -1 ; 

sgn_y = y2w > ylw ? l : -l ; 
delta_X = x2 > X ? x2 - X : X - X2 ; 

deltaly « y2w > ylw ? y2M - ylw ; ylw - y2w 
if ( delta_x > delta_y ) 
< 

if ( delta x > delta_y << 1 ) 

{ /' 



/• direction x 
/' direction y 
I' absolute distance x2 - x 

/* angle < ii§'d«^rei» 

/* dx/dy > 2 
plot dy+l horizontal lines 



hd_points = ( delta_x < < x_fact ) / ++delta_y 



/* expand x, ( Mind no REALS! 



h_p©int8 i« «pi^3fi«»''}h? hd_points 

for ( yw = ylw, x = xl '<* x_fact 
yw ! » , y2w ; 



) calc length of the horizontal part 
-hd_points ; 
/• find X 



direction pos or neg 



V 
V 
V 

*/ 

•/ 

V 

V 

•/ 



wttmcmm. c w » > 

> 

else 



x_fact, y2w, x2 ) 



♦ h_polnts ) *> '8_fafet f ■' 
; /* compres again and plot */ 



/• delta X / delta_y 



< 



aant_str = delta_x - 
h_points = ( ( delta_> 
hx_points = sgn_x == 
*^_iPo4»ts - sgn_y »■ 
X » xl << y_fact ; 
yw « ylw << y_fact j 
Bgn_x < < » y_f act i 
while ( aant.str ) 



: INTEGER ! maybe 1.99999 as a REAL ! •/ 
/• plot as diagonal lines */ 
delta_y + 1 ; /' number of DIAGONAL lines «/ 

< < y_fact ) / aant_str-- ) - ( cor_fc ) ; 
1 ? h_points : -h_points ; /• direction x '/ 

1 ? hipoints : -h points ; /* 4AiP«?*t©0 y */ 

/*'eiipiM.'^fiit©ris •/ 



oe: 
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— a«At_str ; /* plot <lelt8_x - delte.y dflaibnais */ 

DIAGONAL ( X >> y_fact , yw >> y_/act, t^- r-^- ," - 

X + hx_points >> y_fact, yw ♦ hy_point8 >>. yJt^^!/{LjJ',. 
X += hx_points + SBn_x ; . , .},■ 

yw +« hy_point» ; 

y 

DIAOONAL { X >) y fact, yw > > y fact,, «*. yau, J,.> /• plot last one */ 

} 

> 

else /• delta_x < delta_y •/ 

/• the saae whole story for delta_y > delta_x •/ 

{ 

if ( delta_y > delta_x < < 1 ) 
{ 

hd_points = ( delta_y < < y_f act ) / ++delta_x ; ^ 
h_points = sgn_y == 1 ? hd_points : -hd_polnt8 j ., . 

for ( X = xl , yw = ylw << y_fact ; 

X != x2; ^ 

X += sgn_x , yw += h_points ) 
VERTICAL ( X, yw >> y_fact, ( yw + h_point» ) >> y_fact ) J 
VERTICAL ( X, yw >> y fact, y2w ) j 

> 

else /* delta y > delta x ; delta y / delta x ' 1 */ 

< 

aant_str = 1 + delta_y - delta_x ; 

h_points = (( delta_y << y_fact ) / aant_str-- ) - ( cor_fc ) ; 

hx_points = sgn_x == 1 ? h_points : -h_points ; 

hy_points = sgn_y == 1 ? h_points : -h_points ; 

X = xl < < y_f act ; - ' • 

yw = ylw < < y_f act ; 

vhXlm { aaiit.stf ) 
( 

— aant_str ; 

DIAGONAL ( x > ) y_f act , yw > > y_fact , 

X + hx_points >> y_fact, yw + hy_points >> y_fact ) ; 
x += hx_points ; 

yw += hy points + sgn y ; ♦ 
> ~ " ■ ■ 

DIAOONAL ( X > > y_f act , yw > > y_f act , JtS-, y2w ) s 

> 



/'BSEKs = aaas = = = = =: — = = = = = = s3Ssss-ssesCEacssss-ai3s«sssatatssae3«x«SBSssMS»-as-s«te«KBKSS'* / 

/• function PLOT_POINTS '/ 
/• Take the coordinates from the array 'points' and calculate the screen- •/ 
/« coordinates with respect to the x- and y-offset of the figure on the •/ 



/ 



PLOT_POINTS (aant> 

int aant ; 

{ 

register int xl. yl. x2, y2 ; 
int •!», m/^inA ; 

mp •> 0 ; 

■V ind • 0 i 

do 

< 

mp += points( »v_iiid** ] j 

XI = offs_x * pojtai^l , iiy_i^<i># | j 

yl = offB_y + polntst ■V_ihd** ] ; 

DOT ( xi, yl ) ! 

while ( mv_ind < np ) /' 
{ 

x2 = offs_x + points [ mv_ind ] ; 
y2 = offs_y + points [ Bv_ind + 1 ) 
if ( x2 == xl ) 
< 

if ( y2 »■ yl ) 

DOT ( xl, yl > : 
else ' 

VEHTieAI. (,xl. yl. y2 ) : 

y — 

else 

{ 

if ( y2 -« yl ) 

HORIZONTAL ( Xl. yl , x2 ) ; 



V ^\p»l#il:«^ ^.msKt offset •/ 
■■ /* startptfint X */ 
/• startpoint y •/ 

/• move to this point x.y •/ 
|i-ia!*SX « ft«Xl|-^interposition •/ 



■ftsjtft it »/ 
next y */ 



/• •« # mm 0 */ 



/« dy " 0; dx <> 0 */ 



E 5 □ iE! 



else 

{ 

if ( abs ( x2 - xi ) == abs ( y2 - yX ) ) 

PIAGCS^ I ri. S62. y2 ) ! /» abs(dx) absCdy) 0 V 

HELLlSi t *ii «Zi ) i /* abs(dx) <> absCdy) <> 0 •/ 

yl « off8_y * points [ W!_ind** ] t /• «wJ yl " y2 •/ 



while ( points [ bv ind 1 && { iiv.lnd < aant ) ) ; /* while poi^tMr <> 0 */ 
> 



nam ( ) 



char *malloc() ; /* GEMOOS function memory allocate number of characters •/ 
long htmp ; /• pointer-location to allocated memeory •/ 

offs X = 510 ; /» startoffset x: pointing to the figurepoint (0,0) •/ 

Q^f«~j^ = 300 ; /• idem y •/ 

fy»6rd(«( struct FIG • )Physbase( ) ; /« BlOSfunction fysical RAM screen adres V 

htmp = 0X100 + malloc ( 0X8100 ) ; /• reserve room for one screen V 

/« Mind a screen-image has to start on an addres?^ ^i^xxxxOO so some more ♦/ 

/• memory is allocated; the pointer is first set 8X180 l«sldi« thfe •/ 
r/* »lloeat8d meaory after sltfch, in the next line, the address is cut-off. •/ 
- I I- 

iosbld - ( struct FIG •) ( ht«p & OXFFFFFFOO ) j /• cut-off at xxxxxxOO V 

/« this aethod is not correctj gives a compilation-warning but works •/ 

do 

{ 



beeld = beeld == fysbld ? logbld : fysbld ;/• switch the screen-pointer V 
Setscreen ( beeld, beeld -« f^tftd ?, jLecbld s fysbld, -1 >: 
/• switch screen \ ^ . 

/» screen.-in8truct«g9i,'i!iS|t.;«o to the lnwi8i:l»l«__^|creen 'beeld 



printf ('•?lcXc",27, 'E' ) ; 
PLOT_POINTS { aantal ) ; 
Setscreen ( beeld, beeld, -1 ) i 

offs_x -= 25 ; 
offs_y -= 4 ; 

} 

while ( offs_x >= 60 ) ; 

^ t > **(ile ( Cconis( ) (9 jt | 

Sist«eiir«cn ( fysbld, fysbld, -1 ) ; 

} 



/ 

/ 

/• Olear screen 'beeld' »/ 
/» plot the figure; always on 'beeld' •/ 
/• Bake 'beeld' visible •/ 
/* decrement the offset x •/ 
/« decrement the offset y «/ 

/» go on while offset x > 60 •/ 
/* wait fie* # tmV- .*/ 
/* leave screen in a nornal i^osltion 



==•/ 
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Expansion of (MIO-DCS Extentions 

by: Coen Boltjes vidibus: 400029830 

Nw. Plantage 9 
2611 XH Delft 

The Neth^ lands , j ^^.^^ 
Translated by: Elja van der Veer 

In the beginning one had to manage when a new file name 
had to be put into the directory. This had to take 
place v±t& 'tiee help of the basic programme BEXBC*, 
Mhlcb, kot^ww, could only :be run ii. ti>A 
BASIftS-taceirieter was Id^ed. With tbe exteatlons from 

name in th« dlr^tdrf if it didn't eidst:. tMs md 
quite an advancement, but it also entailed some 

drawbacks : 

-When a wrong disk is put in the drive, the file can be 
stored on the wrong disk without warning. 

-The number of tracks for the file is chosen to such an 
extent that it fits the file exactly. In extending • 
files this may be very unpractical. 

Fortunately om secretary Gert Klein also noticed this 
mi he iej^feaded tlte DOS-comnandA^iviftfc^a etcctc emmaoAi- 
Wmi odiisg 4i filename in the directory the first and 
last txa^k must be given up. CR NAME-beg,end (See 
Issue 3f), 

This user of this command must take care that the 

various files do not overlap sothat searching for a 
free place may take a while. Searching for a place is 
simplified with the programme described below, as it 
sorts out the filenames in the order of increasing 
track number. It can either be implemented as a new 
DOS-Command (i.e. with RS of Resequence), or as 
executable programme. 

liSC^ng at the main routine the operation will be clear 
at oace. Reading, sorting, >friting back the directory 
mtd additional: printi&g^ "Hie latter^ ems:^«Mlb IM. left 
out. At the seme time It becomes clewr tl%t tik» use ef 
subroutines has advantages: easy to fiad^i ^tfiidlft ' 
getting lost in the how and why of tests and branches. 
Subroutines can also be used for other commands. In the 
sorting procedure a bubble-sort algorithm is used. All 
entries are compared with their successor and if this 
successor has a lower last-track number the two entries 
are exchanged. The whole directory is run through in 
this way and if no exchange has taken place t&e 
directory is sorted out. 

The fact that the filenames are ordered does not 
necessarily mean that they appear in the directory 
successively. It is possible that e^i^t^ estries occur, 
bvt tMs is m problem fm our iHw|gse« {ji case the 
sorting routine ALFA is used for atnfer Extentions this 
should be born in mind. 

ExtenLions on OHIO-DOS V3.3 by Gert Klein which enables you to 
use new DOS-Commands as: Direetory, Create and Delete files. 
Change filenames etc. 

Complete english assembly source with introduction. Original 

for the Junior, but adjustment procedlure for EC65(K) is included. 

Send cheque of Hfl 17.50 to the editoral office. (Euroceque 8.00) 



i Intend to write one ore more articles about the 
subject "Datacoonunlcation" . If there are meaberii^'-Vil^ykW'' 
specific questions dealing with this subject, please' via. 
send these to .the editoral office, so- I can answer then 

in my article-. 

This is THE opportunity to ask for the dlference beti 
Bit- and Baudrate or Arithmetic- and Cyclic 
redundancy check. 

Coen Boltjes 



6850 
6860 
6870 



OOFE- 
00E4- 



6910 
6920 

6930 
69A0 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7,020 
7030 
7040 
7050 
7060 
7070 
7080 
7890 
7100 
7110 
7120 
?W& 
7U0 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 

7m 

7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 



ENTX . 

Mm * 



D69C 20ra©l 
D69F AE0023 

D6A2 CA 
D6A3 86E0 
D6A5 20AFD6 
D6A8 2005D7 
D6AB 20A3D1 
D6AE 60 



D6AF 
D6B1 
D6B3 
D6B5 
D6B7 
D6B9 
D6BB 
D6BD 
D6BF 
D6C1 
D6C3 
D6C5 
D6C7 

%m 

D6CB 
D6CD 
D6CF 
D6D1 

D6D3 
D6D5 
D6D6 
D6D8 
D6DA 
D6DB 
D6DD 
D6DE 
D6E0 
D6E2 
D6E3 
D6E5 
D6E7 
D6E9 
D6EB 
D6ED 
D6EE 
MF0 
D6F2 
D6F4 
D6F6 
D6F8 
D6FA 
D6FC 
D6FE 
D700 
D702 
D704 



A6E0 
86FF 
86E5 
A980 
85E6 
A900 
85FE 
A908 
85E4 
A007 
B1E4 
F026 
BIFE 

D1E4 

3013 
FOll 
A007 
B1E4 
AA 

BIFE 
91E4 

8A 

91FE 

88 
10F3 
E6E6 
18 

A5FE 
6908 
85FE 
D002 
E6FF 
18 

A5E4 



ALFA 



ALFAl 



ALFA2 
ALFA3 



ALFA4 
ALFA5 



8^ 
DOCB 
A5E6 

1008 
297F 
85E6 
E6E5 
DOBF 
DOAB 
60 



ALFA7 



D705 AE0023 DUMPDI 
D708 CA 
D709 86FF 
D70B AOOO 
D70D 84FE 
D70F C8 
D710 8C5E26 
D713 8C5F26 
D716 20E127 
D719 EE5E26 
D71C 20E127 
D71F 60 



■THCP2 

LDX RAMLOC 

DEX 

STX SAVEX 
JSR ALFA 
JSR DUMPDI 
JSR DIRECT+$B 

LDX SAVEX 
STX ENTl+1 
STX ENT2+1 
LDA #$80 
STA MOVCNT 
LDA #$00 
STA ENTl 
LDA #$08 
STA ENT2 
LDY #$07 
LDA (ENT2),y 
BEQ ALFA6 
W 1PT1),1 

1^ mm 

CMP (ENT2),y 
BMI ALFA5 
BEQ ALFA5 
LDY #$07 
LDA (ENT2),Y 
TAX 

LDA (ENT1),,Y 
STA (EHT2),y 

TXA 

STA (ENTl),y 

DEY 

BPL ALFA3 
INC MOVCNT 
CLC 

LDA ENTl 
ADC #$08 
STA ENTl 
BNE ALFA6 
INC ENTl+1 
CLC 

LDA ENT2 
ADC #$08 
STA ENT2 
BNE ALFAl 
LDA MOVCNT 
BPL ALFA7 
AND #$7F 
STA MOVCNT 
INC ENT2+1 
BNE ALFAl 
BNE ALFA 
RTS 

LDX RAMLOC 
DEX 

STX VEC+1 
LDY #$00 - 
STY VEC 
INY 

STY SECTNU 
STY PAGENU 
JSR DUMPSE 
INC SECTNU 
JSR DUMPSE 
Rl^ 



mn, READDI en DIR 
The locations of 



iMt imS M' TRACK 12 
;R£AD BISECTORY 



; SEQUENCE DIRECTORY 

; WRITE DIRECTORY ON DISK 

; PRINT THE DIRECTORY 



;l3im START OF DIRECT 



iMOVB COUSTER 



ilNIT ENTITY POINTERS 
SLOADPOINTER TO UST TRACKNR 
:LOAD 

;»>E»T2 EMPTY 

;*>Wri EMPTY 
; COMPARE TRACKS 
;->TRACKl<TRACK2 
;->TRACiCl=TRACK2 

;LOAD CHARACTER 
;SAVE IT 



; EXCHANGE CHARACTERS 
;->EXCHANGE NOT COMPLETED 



;ENT1 TO NEXT ENTRY 
;->N0 PART BOUNDARY 



JENT2 TO NEXT ENTRY 
!->BOTH PART FINISHED 



}->ALLWAYS (DO SECOND PART) 
j->NOT IN RieHT SBQIIENCE 



;SET LOADVEC TO FIRST PART 



; SECTOR 01 
;1 PAGE 
;DUMP 12,1 
; SECTOR 02 
;DUMP 12,2 



I, 



,are routines described in issue 39. 
deviates. 
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I A S H 



8000 : 


IB 






8001: 


fl9 


BE 




8003: 


85 


3C 




8005: 


flD 


D2 


03 


8008: 


69 


16 




aoofi: 


85 


3D 




800C: 


RO 


00 




BOOE: 


Bl 


3C 




BOlOs 


C9 


03 






FO 


01 




^11 


60 






BOlSt 


98 






301&: 


85 


3C 




3018: 


AD 


D2 


03 


301B! 


85 


3D 




BOID: 


38 






301E: 


Bl 


3C 




3020 s 


E9 m 








3C 












3025: 








3026: 


Bl 


30 




30281 


E9 00 





1 

2 
3 
4 
5 
6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

m 
f? 
m 

9 

0 
71 
72 
73 



#**#*##*##♦*♦##♦«*##*♦##♦####»###»#»###^H^*»«#«#»##^H^»####♦#« 

** #» 

«* COMPUTER: ftPPLE II WITH DOS 3.3 OR DIVERSI-C£S r #* 

** »* 

** AUTHOR: M.J. VISSER «« 

«* PflSTOOR KONIJNSTRflflT 48 »# 

** 1616 BX HDOSKftRSPEL ## 

** *» 

# 

* GLOBfiL ADDRESSES 
* 

BEGIN EQU $1000 ;START OF ROUTINES 

* 

** 4* 
** LAUNCHER: '«» 
** #» 
*# - CHECK FOR RIGHT DOS (DOS 3.3 OR DIVERSI-DOSJ ** 
*» - MAKE ROOM BETWEEN DOS AND ITS BUFFERS ** 
** - RELOCATE THE ROUTlhfS INTO THIS NEW SPACE #« 
** - LINK THE USER VECTOR ## 
*♦ , . »* 

* LOCAL ADDAtiSES 
* 

LENGTH 
TEMP 
SRCPTR 
SRCEND 
RELPOS 
TRGTPTR 
TARGET 
BYTES 
STACK 
WRMSTRT 
USR 

MAKEBUF 
INSDS2 
NXTA4 
* 

* CHECK FOR DIVERSI-DOS OR DOS. 3. 3 

* IF NOT FOUND THEN EXI?, LAC^€R 

* ' 

ENTRY 

#$BE 
TEMP 

WRMSTRT+2 
»fl6 

TEMP+1 
#»00 
(TEMP), Y 
#3 

MAKEROOM 



EQU 


*2F 


EQU 


$3C 


EQU 


$3C 


EQU 


$3E 


EQU 


*40 


EQU 


$42 


EQU 


$44 


EQU 


$46 


EQU 


$100 


EQU 


$3D0 


EQU 


$3F8 


EQU 


$A7D4 


EQU 


$F88E 


EQU 


$FCB4 



CLC 
LDA 
STA 
LDA 
ADC 
STA 
LDY 
LDA 

cm 

BEG 
RTS 



•LENGTH OPCODE 

; SOURCE POINTER ' ' 

; END OF SOURCE POINTER 

;REL. POSITION OF ADDRESS 

; TARGET POINTER 

; ABSOLUTE TARGET ADDMSS 

{BUFFER FOR OPCODE 

;DOS WARMSTART ADDRESS 

;BUILDS DOS BUFFERS 

; DETERMINES LENGTH OF OPCODE 

;INC SRCPTR ft TRGTPTR AND CHECK, Em 



jVERSION # IS AT ^gET *1» 



; VERSION 

; IF DOS 3.3 THEN CONTIMJ 



ELSE EXIT 



« MAKE ROOM FOR THE ROUTINE BETWEEN 

* DOS AND ITS BUFFERS AND INITIALIZE 

♦ THi TAflirr POINTER. 
# 



MAKEROOM TYA 
STA 
LDA 
STA 
SEC 
LDA 
SBC 
STA 
TAX 
INY 
LDA 
SBC 



TEMP , 
WRMSTFTf*! 

Tpp+i 



;Y»0 

tmi POINTER TO FIRST ajFFER 
;W1S POINTER IS LOCATOJ AT f fDOO 

IpointeI 



POINTER - LEN ROUTINE 



(TEMP),y^a: 
«<EN0mP^6IN 

(TE»iP)»y ;PUT THE NEW POINTER ON $9000 

•AND SAVE IT IN THE X & Y RES^STERi 

(TEMP),Y - 
tt}ENDDMP-BE6IN 



I^E S D KENMEll^ 



802fl: 


91 


3C 


74 


STfl 


(TEMP) , Y 




B02C: 


AS 




75 


TflY 




802DI 


16 




76 


CLC 




; INITIALIZE THE ABSOLUTE TARGET 




m 






TXfi 




; ADDRESS AND THE TARGET POINTER 




69 


26 " 


78 


flOC 


#38 


; 38 BYTES ABOVE THE FIRST DOS 


fi03ls 


85 


44 " 


79 


STR 




; BUFFER. 


B0339 


85 


42 


60 


STA 








cm 




81 


TYfl 








69 


00 


82 


ADC 


8038: 


85 


45 


83 


STfi 


TARGET+1 




B03A: 


85 


43 


84 


STA^ 


TReTPTR+1 




803C: 


20 


D4 ft7 




4®ll 


mmmjf 


SmeUILO THE DOS BUFFERS 



803F: 
8040: 
6041: 
8042: 
8044: 

iosol 

8056: 
8058: 

805E* 

8060 

8063 

8064 

8066 

8069 

806B 

806D 

a06F 

8071 

8073 

8075 s 

8077 

8079 

807B 

807D 

807F 

8081 

8083 

8085 

8087 

8088 

808A 

808C 

808E 

8090 

8092 

8094 

8096 

6098 

809ft 

e09B 

805E 

80fl0 

60A2 



8004 : 
80fl6: 
80fl9: 
80AB: 



18 
BA 
BD 

FF 00 
69 7E 



m 
m m 

85 W 

m m 
m wi 

85 3E 
A5 3D 
69 00 

8S .3F 

m 02 

Bl 3C 
99 46 
88 

10 Fa 
20 BE 
A5 2F 
EG 02 
DO 25 
A9 Bl 
C5 47 
ft9 10 
E5 48 
90 IB 
ft5 47 
E9 00 
85 40 
P5 48 
£9 10 
85 41 

90 OD 
18 

AS 40 
65 44 
85 47 
fi5 41 
65 45 
85 48 
fl2 00 
B5 46 

91 42 
E8 

20 B4 
C6 2F 
10 F4 
90 B8 



flO OA 
AD F9 
91 44 
C8 



m 



00 



F8 



87 
88 
89 
90 

'mi ' 
m 

9S 
9i 
17 
98 

^S9 

101 
102 

103 
104 

im 

106 

107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 



FC 



; WHERE AM I? 

; RETURN ADDRESS STILL £»tJiT8C^ 
♦BD ;LDA STACK-1,X ^ 

*FF, $00 

#<E^IDIT-NWBUF+1 :CALC THE POSITION OF THE 
SRCPTR ; ROUTINE AND STORE THIS ,^DR^ 
STACK, X • IN SRCPTR ^ 
»>ENDIT-NWBUF+1 
SRCPTR+1 

jCALCULATE THE END POSITION OF THE 
SRCPTR -ROUTINES BY ADDING THE LENGTH TO 
*<ENDDMP-BEGIN :SRCPTR AND STORE THIg AOMESS 
SRCEND ;IN §RCEND - r 

SRCPTR+1 
#>ENDDMP-BEGIN 
SRCEND+1 
#$02 
(SRCPTR) , 
BYTES, Y 



;MOVE 3 
; BUFFER 



ffiOM SOURCE INTO 



03 



# RB>OCATE THE ROUTINE INTO THE 

* NEWLY CREATED SPACE. 
* 

NWBUF CLC 
TSX 
DFB 
DFB 
ADC 
STA 
LDA 

mc 

STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 

RELOCATE LDY 
TAKESBYT LDA 

STA 

DEY 

BPL TAKE3BYT 
JSR INSDS2 
LDX LENGTH 
CPX #*02 
BNE MOVEBYTS 
LDA « (ENDDMP 
CMP BYTES+1 
LDA #> ENDDMP 
SBC BYTES+2 
BCC MOVEBYTS 

lda bytes+1 

sbc # (begin 

sta relpos 

lda bytes+2 

sbc #> begin 

sta relpos+1 

bcc movebyts 
clC 

lda relpos 

adc target 

sta bytes+1 

lda relpos+1 

adc tar6et+1 

sta bytes+2 

movebyts ldx #$00 

move lda bytes, x 

STA (TRGTf^TR) 
INX 

JSR NXTA4 
DEC LENGTH 
BPL MOVE 
BCC RELOCATE 

* 

* LINK THE USER ROUTINE TO THE 

# USER VECTOR 

LDY #*0A :LINK THE PREVIOUS ROUTINE 

LDA USR+1 ; TO THE CURRENT ONE 

STA (TARGET). Y 
INY 



; DETERMINE THE LENGTH OF Tig CSCODE 
: LENGTH = LENGTH -1 
;IF ABSOLUTE ADDRESSING THEN 

; IF ADDRESS > M THEN MQVi 



IF ADDRESS < BEGIN THEN MOVE 



ELSE 

RELOCATE THE ABSOLUTE ADDRESS 



;MOVE LENGTH BYTES TO TARGET 



;INC SOURCE AND TARGET POINTERS, 
; AT END C0;?gY IS SET 

jBNTIL AT END 



18 



E§B 5 D S 



KEIMMER 



iOflC! 

JOflF: 
JOB!! 
30B3: 
J0B6: 
)0B8: 
lOBBi 



flD Ffl 03 
91 44 
fl5 44 
8D Fg 03 
fl5 45 
8D Fft 03 
§0 



000 


! 04 


34 




002 


: eg 


00 


02 


005 


: eg 


C8 




007 


: FO 


03 




009 


: 4C 


17 


FE 


OOC 


: C8 






OOD 


: 84 


34 




OOF 


: fl5 


3E 




Oil 


! C5 


3C 




013 


: 05 


3F 




015 


! E5 


3D 




017: BO 


01 




019 


! eo 






Olfl 


fig 


OF 




OIC 


fiC 


54 


00 


OIF 


CO 


FD 




021 


DO 


01 




023 


40 






024 


85 


2F 




026 


E6 


2F 




028: 


25 


3C 




02fl! 


65 


40 




02C: 


38 






02D! 


05 


3C 




02F; 


E5 


40 




031! 85 


3C 





150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

16g 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

160 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

ig5 

196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
22G 



LDO USR+2 

STO (TORGET),Y 

LDO TORGET ; REROUTE tl# USER VECTOR 

STO USR+1 

LDO TORBET+t 

STO USR+2 

RTS 

END IT EQU * 
* 



*♦ 
** 
** 
** 
** 
** 
** 
** 



** 
** 
## 
** 

. . ■ #« 
** 

«« 

* LOCftL ADORESSES ' 
* 



HEX/flSCII DUMP: 

- CHECK USER COLL CH' ) 

- CHECK BEGIN < END 

- GET THE SCREEN LENGTH 

- Wm Jm MEMORY RON^ 



LEN EQU $2F 

YSflVE EQU $34 

START EQU *3C 

END EQU «3E 

SKIPSTRT EQU *40 

SKIPEND EQU $41 

IN EQU $200 

TRUEOUT EQU $0053 

PR3BL0NK EQU *Fg48 

PRBLONK EQU $Fg40 

PRBL0NK2 EQU *Fg4C 

PRSTORT EQU $FDg2 

EQU $FDDO 

EQU »FDED 

EQU »FEi7 



PRBYTE 

COUT 

RTSl 



0R6 BEGIN 



* CHECK THE CHOROCTER 

* IF IT IS 0 'H' THEN 
* 

HEXDUMP LDY YBOVE 
LDO IN.Y 
CMP 

BEQ HEXDMP2 
JMP RTSl 
HEXDMP2 I NY 

STY YSflVE 

* 

* CHECK BEGIN <= END 
# 

LDO END 

CMP STORT 

LDO END+1 

SBC STORT+l 

BCS CHKSCRN 
OTEND RTS 
* 

* CHECK WHETHER 40 OR 60 COL. 

* OND INITIOLIZE POINTERS 
# 

CHKSCRN LDO #$0F 

TRUEOUT+1 
#»FD 
EISHTY 



BYTES PER LINE 

POSITION ON INPUT BUFFER 

START ADDRESS 

END ADDRESS 

SKIP # BYTES 

SKIP # BYTES 

INPUT BUFFER 

TRUE OUTPUT VECTOR 

PRINT 3 BLONKS 

PRINT X BLONKS 

PRINT 0, FOLOWED BY X K-fiNKS 

PRINT STORT ADDRESS 

PRINT 0 OS HEX 

OUTPUT ROUTINE 

FIXED RTS II^TRUCTION 



F0L0WIN6 THE "Y 
THIS ROUTINE IS REQUESTED 

;GET THE NEXT CHOR 

;IF IT ISN'T A ' H' THEN 
; TRY NEXT ROUTINE 



; ADJUST INPUT 



;IF END { BEGIN THEN 
! STOP 



- 1L 



EilSfty 



LDO 
LDY 
CPY 
BNE 
LSR 
STO 
INC 
OND 
STO 
SEC 
LDA 
SBC 
STA 



IF OUTPUT VECTOR « 
LEN = 8 

ELSE J.;;* 

LEN = 16 ■j')^ 



*FDXX ThEN 



LEN 
LEN 
STORT 
SKIPSTRT 

START 

SKIPSTRT 

START 



BYTES TO SKIP ON FIRST LINE 

(STORT MOD LEN) 
ROUND STORTING ADDRESS 

(START-START MOD LEN) 



rv" 



c:- o: -i'^ 

■ r 

^- ■- 



■ '.1 ■ 





, ; p. 




■ " t 








: '.>»_ . 


1'- 






■J '- .' 


.'0 










■, ■ 












vr • 



19 











227 


# DUMP MEMORY 


RA^K£ 










226 


» 




1033 


! 38 






229 


LOOP 


SEC 




103A 


' HO 


^E 




230 


L00P2 


LDO 


END 


lUvSb 


» rD 










SBC 


b 1 HK 1 


lUoc5 


HH 










TAX 




1 uoy 




or 




ZOO 




LDO 


China. 1 


4 /V "T T~l 








OTA 

^o4 




SBC 


CTQDTo- 1 






DH 




2os 




BCC 


H 1 hlNU 


103F 


DO 


05 




2ofa 




BNE 


KinDMCKin 
IMUKntniU 


1 U4l 


» C/i 


zr 




/O / 




CPX 


1 CM 
LtN 


1043 


no 
CO 






2oo 




INX 






• yo 


AO 




zoy 




BCC 




1046 


06 


2p 




O/i A 

240 


NORMEND 


LDX 


1 Chl 


1 OHo 


DD 


41 






SPECENO 


STX 




104H 


"""A 

^0 




rU 


O/t o 




JSR 


DDCTQDT 




HI* 






£.1*0 




LPY 


CWTDQTRT 


104r 


rO 


Oo 




244 




Wm 


FKoT 1 ta 


1051 


QQ 
■ 30 






O A 

24D 




TYA 




1052 


Ofl 






OA C 

24b 




ASL 




1053 


65 


40 




O A "T 

247 




ADC 


SKIPSTRT 


1055 


Rh 






246 




TAX 




1056 


20 


40 


F9 


249 




JSR 


PRBLhNK 


1059 


09 


00 




250 


PRBYTES 


LDO 


#" 


105B 


20 


r~T\ 

ED 


r"r\ 

FD 


251 




JSR 


CuUl 


105E 


Bl 


3C 




252 




LDO 


/C>TAaT\ 

(s iHfx n , T 


1O60 


20 


Dh 


FD 


OCT 

253 




JSR 


riDDVTC 


1063 


C6 






2D4 




I NY 




10b4 


L4 


41 




23D 




CPY 


CL^ T DCKin 


1066 


90 


Fl 




256 




BCC 


nODVTCO 

FKdt 1 ta 


1068 


BO 


04 




257 




BCS 


cKincon 
cNUbl-'U 


106R 


20 


46 


Fy 


oca 


SPC2 


JSR 




lObU 


no 






OCQ 

2Dy 




I NY 




106E 


C4 


2F 




260 


ENDSPC 


CPY 


1 CKi 

LtN 


lO /O 


yo 


CD 

ro 




2bl 




BCC 


CDPO 


1072 


ft9 


00 




0£! o 

262 




LDO 


#" 




2U 


cr\ 
b.U 


en 
ru 


OC T 

^bo 




JSR 


pni IT 


1 A"7"7 


Hy 


DA 
DH 




OCA 




LDh 


till . 
tr ■ 


lu /y 


Hfa 


A A 

41.' 




OC 

^b3 




LDX 


CU T DCJTOT 


107B! 


CD 






oc c 




INX 




107C 


20 


A n 
4L 


ry 


OC *7 




JSR 


noDi QWk'O 
r nDl-HlNrVZ 


107F 


h4 


40 




2bo 




LDY 


Ck T DCTDT 


1081 


Bl 


3C 




OC Q 

269 


PRASCII 


LDO 


/CTQDT\ V 
t a 1 HH 1 / , 1 

H'L 1 (tltlVMW'tll 


lOoo 


uy 






07A 




no A 

□Rh 


10o3 


no 

uy 


AA 

HU 




07 1 




CMP 


W 


1087 


BO 


0^ 




0"70 

2/2 




BCS 


DDACP 

KKHaL 


lotjy 


Hy 


AC 
Ht 




^1 J) 




LDA 


it" 

pni IT 


108B 


20 


ED 


FD 


Ilk 


PRftSC 


JSR 


1 A OCT 


Lo 






•~f ~s c; 




I NY 




lOBF 


P A 

C4 


41 




^ /b 




CPY 




1091 


90 


EE 




OTT 

277 




BCC 


DDOCPT T 


1093 


BO 


AC 

Ob 




2 




BCS 


CDP/i 


1095 


09 


«0 




OTO 

279 


SPC5 


LDA 


w 


1097 


. 20 


ED 


FD 


280 




JSR 


pni IT 


109fl 


C8 






281 

OQO 

2oz 




I NY 




109B 


! C4 


2r 






CPY 


1 CKi 


109D 


90 


F6 




283 




BCC 


aPL/O 


109F 


! fl9 


00 




OQ A 

2o4 




LDA 




lOfll 


. 85 


40 




one 

265 




STA 


ar\ Jl Ka i K 1 


10A3: 18 






one 
286 




CLC 




imu 


i AS 


3C 




OD7 




LDO 


QTQRT 
a 1 MR 1 




2F 




288 




ADC 


LEN 


lona: as 


3C 




289 




STO 


START 


lOflfls 90 


87 




290 




BCC 


LOOP 


iOflC: E6 


3D 




291 




INC 


START+1 


lOAE: BO 


B4 




292 




BCS 


L0tJP2 


tOBO: 60 






293 




RTS 












294 


ENDDMP 


EQU 


» 



;IF START > END THEN 

• AT 



;IF END-START < LEN THEN 
; X := END - START 
; ELSE 
: X :« LEN 



;PRINT STORT ADDR^ 
;SKIP BYTES 

; (3 SPACES PER BYTE) 



: PR I NT THE SPACES 
SPRINT THE BYTES 



; UNTIL AT END OF LINE 

;SKIP THE LAST BYTES 
; (LAST Li^NE ONLY) 

•PRINT ' I ' 

;AND SKIP START BYTES 
; PRINT THE ASCII m.UES 



;CTRL CHARS ARE REPRESENTED 
; AS '.' 



; UNTIL AT END OF LINE 

;SKIP THE LAST BYTES 
; (LAST LII« ONLY) 



; CLEAR SKIPSTRT 

JCALC NEXT START ADDRESS 




36S bytes 
Errors* 0 



20 



I 

Mm 



ILIST 

0 60T0 tm 



»## SCREEN CONTROL ROUTINE 

S »*i . - 

I REM • -'"V- 
m PRINT CHRf (12):: HOPK^l 

I SEW Q-EflR SCREEN ' ^ J o : 
» PilNT CHR$ (29) ; : CALL - li 

gl RETURN ! REM CLREOL 
50 PRINT CHR$ (25) ; : VTflB VTi MfM 

HT: RETURN : REM POSITION CU 

RSOR 

%0 PRINT CHR* (25):: VTflB i: HTflB 
H eOSUB 20: RETURN : REM a... 
EfiR TOP LINE 
50 PRINT CHR* (15);! INVERSE I W^W^ 
BO PRINT CHR* (14);: NORMAL : fCltWil 

70 Iff •« 24»MT « 1! BOSUB 30: 60SUB 
20: PRINT 0*;: f^ll CONIMQ- 
+ BOTTOMLINE " •' ' 

its BOSUB 40: PRINT CL*;: RETORN 
: REM SHOW COMMANDLINE 

37 REM 

38 REM * « * INITIALIZE * * * 

39 REM 

100 BOSUB 20000: REM INITIALIZE 
lit C = 2: GOSUB 2QiOt 9m iET 
DRESSES 

197 REM 

198 REM » * » MAIN PROBRAM • ♦ » 

i . .--v'li't'j,. 

199 REM 

200 FOR M » PPLm TO TRUE: REM 
REPEAT 

Hi CL* = "HEXDUMP: D(UMP N(EW 0( 

UTPUT Q(UIT?" 
tm BOSUB 70: REM COMMANDLINE * 

BOTTOMLINE 
235 C = 0 

240 FDR I = FALSE TO TRUE 
250 GET R*: REM GET COMMAND 
260 FOR J = 1 TQ 5: REM CORRECT 
COMMAND? 

270 IF R* = MID* ("DNOQ?", J, 1) THEN 

C = J:J ■ 5 
280 NEXT J 

290 I « (C > 0) I UNTIL CDRRE 

CT COMMAND 

SOO NEXT I 

ItO ON C BOSUB 1000,2000,3000,40 
00, S000* fm P^ESS CQMMAN 
D 

320 M = FALSEt REM UNTIL FAL^ 
330 NEXT M 

397 REM 

398 REM * * * DUMP * * # 
393 REM 

1000 CL* = "DUMP: ": IF NOT PR THEN 
CL* « CL* + "(ARROWS) MOVE P 
ABE " 

1010 CL* = CL* + "(ESC> Ea:flPES?" 

1020 GOSUB 10: REM HOME 

1030 GOSUB 70: REM COMMANDLINE + 

BOTTOMLINE 
1040 PL = 160: REM PAGE LENGTH ' ' 
1050 LL = 8: REM LINE LENGTH 
1060 IF S80 THEN PL = 320 :LL = 1 
61 REM 80 -<:0LUMN 



1070 IF PR THEN PRINT PR*!PL « 

16:LL = 16: REM PRINTER 
1080 STRT = B 

1090 EN = INT ((STRT + PL) / LL) 

* LL - 1 

1100 IF EN > E THEN EN = E 
1110 FOR D = FALSE TO TRUE 
1120 BOSUB 12000: REM DUMP 
1130 IF PR THEN R* = IF PEEK 

( - 16384) = 155 THEN R* = CHR* 

(27) 

1140 IF PR AND (EN = E) THEN R* = 
CHR* (27) 

1150 IF NOT PR THEN GOSUB 70: FOR 
J = FALSE TO TRUE: GET R*:J = 
(R* = CHR* (8)) OR (R* = CHR* 
(21)) OR (R* = CHR* (27)) OR 
(R* = " ") OR (R* = "?") : NEXT 
J 

1160 IF R* = " " OR R* = CHR* ( 
21) AND NOT (EN = E) THEN S 
TRT = EN + 1 

1170 IF R* = CHR* (8) AND NOT 

(STRT = B) THEN STRT = STRT - 
PL: IF STRT ( B THEN STiT,;» : , 
B 

1180 IF R* = "?" THEN GOSUi ^ 

O: REM SHOW HELP PAGE 
1190 EN = INT ((STRT + PL) / LL) 

* LL - l: IF EN > E THEN EN 
= E 

1200 D = (R* = CHR* (27)): REM U 

NTIL ESC 
1210 NEXT D 

1220 PRINT SC*! REM I^TUSN TO / 

REEN OUTPUT 
1230 RETURN 

1997 REM 

1998 fm * * * NEW ,f»>DRESS « « « 



1999 
2000 
2010 

2020 

2030 
2040 
2050 

2060 

2070 

2080 

2090 



2100 
2110 
2120 
2130 

2140 
2150 

2160 

2170 



REM 

BOSUB 10: REM HOME 
CL* = "NEW: *HEX, DEC (ES© 
ESCAPES?" 

GOSUB 70: REM COMMIiQLIliE « 

BOTTOMLINE 

FOR N = FALSE TO TRUE 
FOR NN = FALSE TO TRUE 
VT = 3:HT = i: BOSUB 30! m^ 
POSITION CURSOR 
NM = B: GOSUB lim^*. REM SEC 
-HEX CONV. 
PRINT "BEGIN ADDRESS ("^S*j 



") 



14000! REM INPUT LINE 



NN = NOT HLP: IF HLP THEN GOSUi 
5000: GOSUB 10: GOSUB 70: REM 
SHOW HELP Pft^ 
NEXT NN 

N = ESC: IF H THEN NEXT N: MTUIN 
B2 = AD 

IF J = 1 THEN B2 « Bs PRIMX „ 
S*: : REM DEFAULT VALUE 
FOR NN = FALSE TO TRUE 
PRINT :NM = E: GOSUB 11000: 
REM DEC-HEX CONV. 
PRINT "END ADDRESS (";S*;") 



VT = 4: GOSUB 14000: REM INP 
UT LINE 

2180 NN = NOT HLP: IF HLP THEN GOSUB 
5000: GOSUB 10: GOSUB 70:VT = 
3!HT = l! BOSUB 30:NM = B: BOSUB 
11000! PRINT "BEGIN ftt>D^SS 



21 



ke:mme:r 



2190 
2200 
2210 



2220 



2230 
2240 
2250 

2260 
2997 
2998 
2999 
3000 

3010 

3020 

3030 
3040 
3050 



3060 

3070 
3080 

3090 
3100 

3110 
3997 
39^ 

4010 
4020 

4030 
4040 
4050 



U," 



4060 

4070 
4060 

4090 
4100 

4110 

m 

4999 
5000 
5010 

5020 

5030 

5040 



11600 ! PRINt ^r^'^iMt»l « • 
ELP PAGE 
NEXT m 

N = ESC: IF N THEN NEXT N: RETURN 
E2 = ftD! IF J = 1 THEN E2 = 
E: PRINT S*;! REM DEFAULT Vft 

n'^= (E2 > = J2) J IF m N THEN , 

ERR = 3: 60SW -mm*'^ ^ 

NGE ERROR ' ■ - 

NEXT N .. . . '•' .... 

B = B2:E = E2 

GOSUB lOOOOi REM 
MLINE , ,. - p n- A. 

REM ; ' 

REM W'MM.mmm' • ■» * 

REM 

CL* = "OUTPUT: S(CREEIM PtBIN - 
TER <ESC> ESCAPES?" 

GOSUB 10: REM HOME 

GOSUB 70: REM COMMftNDLINE + 

BOTTOMLINE "In- 

FOR 0 = FALSE TO TRUE 

GET R$ 

IF R» = "?" THEN eOSUB 500 
0: GOSUB 80 1 REM SHOW HELP f? 
ABE ■ 
0 = (R* = "S") OR (R* = "P") 

OR <R* = CHR$ (27) .> 

NEXT 0 

IF R* = CHR$ (27) THEN RETURN 

PR = (R$ s "P") 

GOSUB rOOOOS REM Wf»KE BOTTO 
MLINE 

RETURN 

REM 

REM * * » SUIT » # » 

ClI"' "QUIT: B(ASIC M(ONITOR 
<ESC> ESCAPES?" 
GOSUB 10: REM HOME 
GOSUB 70! REM COMMANDLINE + 
BOTTOMLINE 

FOR Q = FALSE TO TRUE 
GET R* 

IF R* = "?" THEN eOSUB 500 
0: BOSUB so: REM SHOW HELP P 
AGE 

Q = (R$ <3 "B") OR (R$ = "M") 
OR (R* = CHR$ (27) > 
NEXT Q 

IF R* = CHR* (27) THEN RETURN 
POP 

IF R$ = "M" THEN CALL - 1 
51: REM GOTO MONITOR 
END ! REM SOTO BflSlE 

* 



0 ! 



■y 



* » * HE LP IC teETIS * # 
REM HOME 



REM 

GOSUB 10: 

GOSUB 70: REM COMMANDLINE + 

BOTTOMLINE 
VT = 3!HT = 1: BOSUB 30s REM 
POSITION CURSOR 

ON C GOSUB 5100,5200,5300,5 

400, 5500 
IF C = 1 OR C = 2 THEN PRINT 
TAB( 5): "PRESS (SPACEBAR) T 

0 CONTINCiE ":: FOR H = FALSE 
TO TRUES 6Et R*sH = (R* = " 



5050 RETURN 

5099 REM ♦** DUMP HELP SCREEN ## 

5100 PRINT TflB( 11);"* * * DUMP 
* * *" 

5105 PRINT 

Sll« PRINT "THIS COMI»tf»ND DMKPS i 

HE CONTENTS OF" rr,- 
5115 PRINT " A MEMORY fWMlt^-Wf 

HE SCREEN OR" 
5120 PRINT " PRINTER." 
5125 PRINT U .A.y 

5130 PRINT "WHEN SCREEN IKJUif si 

S SELECTED. YOU" 
5135 PRINT " C^N DUMP THE m^Wt 

.M TS BY PAGE." ; f^iiq 

5140 PRINT " A Pf«E IS 

TES LONG. " 
5145 PRINT 

5150 PRINT "YOU CAN GO FORWARD B 

Y PRESSING THE" 
S155 PRINT " FORWARD-ARROW OR TH 

E SPACEBAR. THE" 
5160 PRINT " BACKWARD-ARROW MOVE 
S YOU BACKWARDS." ' 
PRINT 

PRINT "PRESSING THE <ESC)fK 
EV RETURNS YOUMu/>- -^^^.MMiL 

Sin PRINT '' 'WHim:mmM^mmm 

-LEVEL. " 
SIBO PRINT f «iIifr~IV«t{NI 
SiaS RETURN 

5199 REM *«* MEM mmmmBm^m* 

5200 PRINT TAB( 7);"* » # NEH 
ODRESSES « * *" 

5205 PRINT "'Pp^o !' ' ''• 

5210 PRINT "THIS COMMAND LETS YO 

U CHANGE THE" 
S215 PRINT f. |iEI«38¥'-RAN6E. " 
SttO PRINT 

PRINT "YOU CAN ENTER THE ST 

ARTING AND ENDING" 
522^ PRINT " ADDRESSES IN EITHER 

HEXADECIMAL OR" 
mSS PRINT " DECIMAL NOTATION. H 

EXADECIMAL" 
5240 PRINT " NOTATION MUST 

EC^EDED BY A" r ' 

5245 PRINT " DOLLAR-SIGN <♦>♦ 
S250 PRINT V • 

529S PRINT "YOU cm mnctms ^ 

PUT WITH THE" " * 

5260 PRINT " BACKWARD-ARROW. " 
5265 PRINT 

5270 PRINT "PRESSING THE <ESC>-K 

EY RETURNS YOU" 
5275 PRINT " TO THE MAIN COiM«NO 

-LEVEL. " 
5280 PRINT s piiX|tT> i'PSJHT 
5265 RETURN !' 

5300 PRINT wBi s>i** * « tmm 

T SLOT ♦ ♦ ♦"•■'•■I'-r '-'i ^ ■ ■ f-r"-*^ 
5305 PRINT 

5310 PRINT "THIS COMmND LETS YO 

U CHANGE THE OUTPUT" 
5315 PRINT " SLOT. YOU CAN CHOOS 

E BETWEEN THE" 
5320 PRINT " SCREEN OR THE PRINT 

ER,^ BY PRESSING" v 
5325 PRINT " ' S' OR 'P*. ** ^' 
5330 PRINT 

5335 PRINT "PRESSING THE <ESC>-K 

EY RETURNS YOU" 
5340 PRINT " TO THE MAIN COMMAND 

-LEVEL. " 



'.'.J 



..' 1 . 



op 
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S420 

5425 
5430 



5440 
5499 

5500 



5345 RETURN 

5400 PRINT TfiB< 11);"* « ♦ QUIT 
t # 

mm 

m PRINT "THIS COMMftND LETS YO 
U QUIT THE PROGRAM. " 

PRINT YOU CftN EXIT INTO B 
flSIC OR MONITOR- 
PRINT » BY PRESSING 'B' OR 
' M' . " . 
PRINT 

PRINT "PRESSING THE <ESC>-K 
~ ins YOU" 

* TO THE MfilN C^MMfiNO 
-LEVEL. " 
RETURN 

REM #«» MAIN HELP SCREEN ** 

« 

PRINT TflB( 6);"* # * HEX/ 
ftSCII DUMP » # »" 
5505 PRINT 

5510 PRINT "D<UMP THE HEXflDECIMfl 

L CONTENTS OF THE" 
5515 PRINT " MEMORY RftNGE WITH 

THEIR flSCI|^«iL4|^^^. ^ 
PRINT " TO W^f^^ ©ft P 

RINTER" 
5525 PRINT 

aSSO PRINT "N(EW MEMORY RANGE (D 

ECIMflL OR HEX" 
5535 PRINT " NOTATION)" 
5540 PRINT 

5S45 PRINT "0(UTPUT SLOT, EITHER 

SCREEN OR PRINTER" 
SP590 PRINT 

J»SS PRINT "Q{UIT PROGRAM, EXITI 

5S60 pRifft » wmttm'* 

MS?** » MAKE BOTTWB-INE * 
10000 0* = "BEGIN!" 

tiiOit m » ii muB uoooiot « oi 

if,. 'Qf^ 

tW# IF S80 THEN Ot » 0* + " (" 

+ STR$ (B) + 
10030 0* « 0* + " « ^ ^ 

10040 NM » E! GOStffl ll©»lOI » ©* 

+ S* 

10050 IF S80 THEN 01 » 0* + " (" 

+ STR$ IS) + "I* 
10060 0$ = 0* i » iiiiPWT** + 
(PR) 

10070 RETURN ' v 

10999 REM * * * OEC/MEl CONVERSI 
ON # * * 

li#©# S* = IF NM < 0 THEN NM 

= 65536 + NM 
11020 J = 4096: FOR H = 0 TO 3:D « 
INT (NM / J) :S* = S* + MID$ 
("0123456789ABCDEF",D +1,1) 
iNM = NM - D * J:J = J / 16: 
NEXT H: RETURN 

11999 REM * * * DUMP CONTENTS * 

12000 VT = 2:HT = i: GOSUB 308 REM 
POSITION CURSOR 

12010 POKE 60,STRT - INT <STRT / 

256) * 256: pmS, 'im iST 

RT / 256) 
12020 POKE 62, EN - INT (EN / 25 

6) * 256: POKE 63, INT (EN / 

256) 

12030 POKE 52,0: POKE 512,200: REM 
CTRL-Y AS CHAR IN INPUT KJFF 
ER. BUFFERCOUNT IS ZERO 



12040 CALL 1016! REM USER-VECTOR 
JUMP ADDRESS 

12050 IF NOT PR THEN FOR JJ = 
1 TO (21 - (EN - STRT) / LL) 
: GOSUB 20! PRINT : NEXT s REM 
CLEAR TO END OF SCREEN 

12060 RETURN 

12999 REM « * « SHOW ERROR MESSA 
GE * * « 

13^ eCmiB 40: REM CLEAR TOP LI 
NE 

13010 IF ERR = 3 THEN PRINT "ER 

R. IN RANGE SPECIFICATION. P 

RESS (SP) " " 
13020 IF ERR ='53 THEN PRINT "I 

LLEGAL QUANTITY. PRESS <SPflC 

EBAR) ": 

13030 IF ER6 = 254 THEN PRINT " 
ILL CHAR IN INPUT RESPONSE. 
PRESS <SP> " • 

13040 FOR JJ = F^iLSE TO TRUE: GET 
R$: JJ = (R$ = " ") : NEXT J J 

13050 GOSUB 80S REM SHOW COMMAND 

LINE ' i'l: ' 

13060 RETURN . , . , 

13999 REM * * * imiT Lim * ft q 



14000 AD = 0:CR = FPILSE:ESC = 

SE:HLP = FALSE: J = 1 
14010 FOR IN = FALSE TO TRUE 
14020 POKE - 16384,0: GET R$ 
14030 GOSUB 14100 
14040 IN = CR OR ESC OR HLP 
14050 NEXT IN 
14060 RETURN 

14100 IF J = 1 THEN HX = (R$ = " 

$"):NEG = (R* = "-"): IF HX THEN 
PRINT "$";:J = 2: RETURN 
14110 IF J = 1 AND NEG THEN PRINT 

"-";:j = 2: RETURN 
14120 IF J = 1 AND R$ = "+" THEN 

PRINT "+"; :J = 2: RETURN 
14130 IF R» = CHR$ (8) AND J > 

1 Tf€N J « J - l: PRINT CHR$ 

lUm IF R» = CHR$ (13) THEN CR 
- TRUES ON NEG GOSUB 14700: 

mmm ■ 

141S0 IF R« = CHR* (27) THEN ES • 

C • fRUEs RETURN 
14160 IF R* « "?" THEN HLP = TRU 

ES RETURN 
14170 ON HX + 1 GOSUB 14500, 1455 

0 

14180 IF AD > 65535 THEN ON HX + 
1 GOSUB 14600, 14650:ERR = 53 
i GOeUB 13000SHT = 23 + J: GOSUB 
301 PRINT CHR$ (8);" CHR$ 
(fl):!j = J^--r.U,M,ll.U, «yA 
NTITY r ' ' - ' 
14190 RETURN IX i 

14500 IF tR» > » "0" AND R* < «* 

»f*^ TMPi PRINT mttm * m 
* 10 r-«wi:vtiWHtf V # t't 

RETURN 

14510 ERR = 254! GOSUB 13000 sHT » 
23 + J: GOmS 30: PRINT CHR« 
(0):! RETll^ 
145S0 m (R* > * AND R« ( =5 
*t*r OR (R» > « «fl» AND R» ( 
« "F") THEN PRINT R*f « 
I® * 16 + VAL (R*) + m*!f\ 
« "ft" ffli© R» < * "F") # ( ASC 
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Ei 5 O lE! 



(R$) 



55) :J = J + 1: RETURN 



14»0 ERR = 254! GOSUB 13000:HT = 
23 + J: GOSUB 30: PRINT CHR$ 
(0);: RETURN : REM ILL. CHAR 

14600 flD = INT (PID / 10) : RETURN 

14650 OD = INT (flD / 16): RETURN . 

14700 flD » 65536 - flD: RETURN V 

19999 RE« # ♦ * INITIftLIZE # » 
» 

20000 GOSUB 10 
20010 VTflB 6 

20020 PRINT TflB( 5) :"»»»!> ■■•!» ■ . ' 

»»#####»###»##«##»##" 
20030 PRINT TflB< 5);"#"; SPC< 2 

6) ' " #" 

20040 f-RINT TflB( 5);"# Hir ' ' 

X /ASCII DUMP #" 
20050 PRINT TAB( 5);"#"; SPC< 2 

8) * " #" 

20060 f'RINT TflB< 5);"# BY 

M.J. VISSER «" 
20070 PRINT rmi 5>5*»"; SPC< 2 

8) 

20080 f'RINT TAB ( 5) :"#«#««####« 
##»##########»###### " 

20090 VTflB 20 

20100 PRINT TflB( 14);: 60SUB 50_^ 
, PRINT " INITIALIZING": GOSUB 
60 

20190 REM 

20191 REM SURCH HEXDUMP, OBJ 

20192 REM 

20193 REM HEXDUMP. OBJ IS A Jj-INK 
ED LIST' ROUTINE. ITS BBffli®!' 
TflRTS flS FOLLOWS: 

20194 REM 

20195 REM LDY $34 ; BUFFER COU 
NT 

20196 REM LDfl $200, Y;FETCH CHflR 

1'"^ " 

20197 REM CMP #$C8 ;"H"? 
20190 REM BE© STifliT -YiS -) DUM 

P 

20199 REM JMP NEXT jCHECK NEXT 

20200 STRT = 1007: REM USER VECT 
QR -10 

20210 FOR I « 0 TO i: REM 1PHE« 

20220^ STRT = PEEK (STRT + 10) + 
PEEK (STRT + 11) ♦ 256: REM 
NEXT ROUTINE 
20230 I = ( PEEK (STRT + 6) = 200 
) OR (STRT = 65381) : REM UN 
TIL "H" OR NO MORE ROUTINES 
20240 NEXT I 

20250 IF STRT = 65381 THEN PRINT 
CHR$ (13): CHR$ (4):"BRUN H 
EXDUMP.OBJ''! REM LOAD OBJ CO 
'f^ - 

20297 f%^'' ~ 

20298 REM" INI T I AL I ZF CONSTANTS 

20299 REM 

20300 FALSE = 0:TRUE = 1 

2K>310 DIM 0P*(1): REM OUTPUT POR 

20320 0P»(0) = " SCREEN "!SC» = CHR* 

(13) + CHR* (4) + "PR#3"! REM 

SCREEN OUTPUT 
20330 OPf(i) « "PRINTER" :PR$ = CHR* 

(11) ♦ CHR* (4) + "PR«1": REM 

PRINTER OUTPUT 



20340 PR = FALSE! REM PRINTER OFF 

20350 S80 = ( PEEK (43604) ( > 2 
53) : REM 80-COL OUTPUT 

20360 IF NOT S80 THEN SC$ = CHR* 
(13) + CHR$ (4) + "PR#0" 

20370 GOSUB 10000: REM I NIT BOTT 
ONLINE 

20400 VTAB 20 

20410 PRINT TflB( 11);: GOSUB 50 
! PRINT "PRESS <?> FOR HELP" 
GOSUB 60 
RETURN 



20420 



THIS ROUTINES ARE ALSO AVAILABLE ON DIS- 
KETTE. FOR THOSE WHO WANT TO SAVE TIME 
OR TO AVOID TYPE ERRORS. SEND YOUR EURO- 
CHEQUE TO THE AMOUNT OF HFL. 25 = TO MR. 
W. L. VAN PELT, JAC. JORDAENSSTRAAT 15, 
2923 CK KRIMPEN A/D IJSSEL, THE NETHER- 
LANDS. 

DISKETTES ARE FORMATTED FOR APPLE II DOS 
WITH THE F0LLQWIN6 FILiSs 
HEXDUMP. BAS 

HEXDUMP. OBJ (ALSO STAND ALONE USEABLE) 
HEXDUMP ML.S (BIG MAG ASSEMBLER FORMAT) 
AFTER 'BRUN HEXDUMP. OBJ' YOU ARE ABLE TO 
CALL THE ROUTINE IN MONITOR BY MEANS OF 
THE USER-VECTOR <CTRL-Y> . ¥WUUSBM.. 
syntax: xxxx.yyyy(CTRL-Y>H. 
NO PAGE-GROUPING IS PROVIDED NOW I USE 
(CTRL-S> TO TEMPORARELY STOP TE OUTPUT, 
THE PROGRAM CHECKS WHETHER YOU ARE IN 80 
COLUMN MODE (16 BYTES/LINE) OR IN 40 
COLUMN MODE (8 BYTES/LINE). 
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HOW TO DE 



D C "T D F=^ U E5 EC £>! 

MORE MEMORY — SR«CI 



ft Little modification of the CPU-board wives 1/2 k. more 
ram {*E200-*E3FF) . fts shoMii &n '^Ptl lyA^^s itn #Ktr* or-«at« 
between fi9/fil0 and N60 enouih. A new IC16/N60 as an "Piasy 
back" construct « on, ,wi i.i do the Job. 

If you use BftSI C0DE2 • you have to do a few changes on your 
cassette interface-board.: Connect ICi Pin 3 to 0 volt and 
ICl P\n 12 to ^ 5 volt. This cf^iawses tfvel addr* ^ISx in- 
stead of *E28x. Remember to change the addresses in the ob- 
Jectkode as wel.U BEWftRE! of the wrong identifications on 
the Etektor ' dVaaraiM. IC 1 and IC 2""are swapped! Fig. 3. 



When i wish to eauiP my EC 65 whith an 6532 i improwed the 
address-decodn ifts on i^fie ^^loppy eontroii er-board» so it's only 
use *E000-$E03F' again using an "p i sgV-bacit" construction as 
a new IC 2. Fig. 2. 

This leaves room for an 6532 whith ram area $E040-*E0BF and 
I/O and timer on *EOCO-tEOFF. The 6532 and it's decoding ic's 
are mounted on a wire wrap-board as shown on fis. 4. 

PETER LINDSTRDEM 
BOLHftVEl^ 8 
DK2990 NIVftA. 
DENMftRK. 



PART QF CPU 
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ie»/Nto 
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PART OF BASICODE INTERFACE 



9 



*2 















2 


PO ^ 00 

1 IC1 1 
1 71 1 

i Ls ; 


3 




5 




17 


19 




15 


16 




- *, 


7 


11 


)••• 1 

" ^ 07 
PsO 


U 


e 


9 


11 


1J 


2 




• 






PO " 00 

IC2 

71 

L$ 

tit 


3 


0 
D 
0 
D 


( 


5 


17 


ie 


15 




6 


7 


13 






a 




9 

11 


< 


11 








® 



JSS- 



21e 



»2c 



Ms. 



AO 

R/W 

-*i 
RES 

iia 



-11 



6S32 IN EC65 



74 
LS 
686 



16 



1 ''y^a 



XXI.0 - XXCF 



XXM-XXFF 



to 



24 C 


3 


25a 


1. 




s 


26a 


6 


2Ec 


7 


29 c 


?5 


27a 


39 


Sa 


3t 


12a 


■ Si 



N1 :7t LS»6 

H3 ttt VS02 
m :n L$02 



c55 



CS1 
AS 



6532 



AO 

R(5 
«2_ 
RES 

irS' 



PBO-T 



HERMAN ZONDAG 



tooo 

COlO 



EOCO 

■too 



EI09 



FLOPPY EOOO .E03F 



6532 
RAM 



MO PORTS UMBt 

VIA 1 eioo.nwr. 

VIA 2 EIIO.EIir 
RTC E120.E121 
ACIA E130.E133 
CRTC EU0-EU7 
COP E150.E16F 

BASICOOE Eiao.Eia3 



6ARBAGE RKM 
SCRATCH 



VWEO RAM 



} 



tS3i RIOT 



iKOLORATORl 



THE MODIFIED PAHTOFTHE 



6 5 □ iE! 



10 


REM 


m 

10 


mi 


32 


REM 


34 


RCM 


33 


RIM 


m 


Ri;;i 


AO 


REM 


'(2 


REM 


H.I 


REM 


''.6 


REM 


43 


REM 




REM 


52 


REM 


54 


REM 




REM 


110 


REM 




REM 


130 


REM 




REM 


150 


REM 


160 


REM 



***TOWERS OF HANOI*** **»T0ROIS VAN HANOI*** 



fHTS is At) exTENSKSi CfP 

THE PROGRA!-IME "Ta'JERS 
OF HA^^OI", WBLISHED 
IN DE 6502 KENNER NO. 38. 
THIS PROGRAMME SHOWS 
THE MOVES OF THE DISKS 
AND COUNTS THE NUMBER 
OF THE MOVED DISKS. ONE 
CAN COUNT THE MOVES aili- 
SELF OR LET THE COMPU- 
TER DO IT. 

THE MAXIMUM NUMBER OF 

m M. 



1000 

1010 

1020 
1030 

iO'-;o 

1050 
1060 
1070 
1100 
1110 
1120 
1125 
1126 
1130 
1140 

um 

li6Q 
1170 
1180 
1150 
1200 
1210 
1220 
12 30 
1240 
1250 
1255 
1260 
1270 
2000 
2010 
2020 
2030 
2040 
2050 
2050 
2070 

2oeo 

2090 
2095 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2230 
.',!00 
2300 
2310 
2320 
2330 

iim 

3000 
3010 
3020 
3030 



REM POSITIE PAAL 
REM HOOGTE TOREU 
REM BODEH,T0P,VAR,TELLE» 
REM 2ELF SPEt^ 
REM IMVOtJR 
REM END 
,P3(N) 

:REM TEKEN PALEN OP SCIIERM 
:REM TEKEH hiOOEM OP .SCIIERM 
:REM TEKEN TOREN OP SCHERM 
:REM GEEF PALEN NUtlMEKS 
:REM ZEXF SPSLEN 



DTT IS BEN 0IOT»E11)1BS V«» 
MET PROGRAMMA "TOREMS VW 
HAtWI", GEPUBLICEERD IN OB 
6502 KENNER NR. 38. 
DIT PROGRAMMA LAAT DE VER- 
PLAATSINGEN VAN DE SCHIJ- 
VEN ZIEN EN TELT HET AAN- 
TAL VERPLAATSTE SCHIJVEN. 
MEN KAN DE V£RPLAATSI^!GEN 
ZELF BEREKENEN Of HET DOOR 
DE COMPUTER LATEN DOEN. 
HET MAXIMAAL Op TE GEVEN 

wmmm u. 

**#itif^m.mit*0*^#w0-****'* ************ f****** 

SOER 

&. », ENCKEVOIRTSTR. 14 
564S EM EINDllOVEI-i 

040 - 122217 - 
NEDERLAND 

'********«*********ilr*«fcijrik******** ********** 

PPC1)=14:PP{2)=40:PP(3)=66 
HG(1)=0:HG(2)=0:HG(3)=0 
BO=20 : TP=6 : A"l :TL»OiHOME 
GOSUB 3100 
GOSUB 6100 
IF tl=0 THEN 1270 
DIM I(N),J(N),3(N),P1(N),P2(N) 
HG(1)=HG(1)+N: HOME 
GOSUB 5000 
GOSUB 5100 
GOSUB 5200 
GOSUB 3000 

IF V=l THEN GOrO 2000 
I(H)=1:J(N)=3:K=N 
IF K=l THEN GOTO 1190 
I1=I(K):J1=J(K):K=K-1 
IF B(K+1)=1 THEN 1180 
I(K)=I1:J(K)=6-I1-C1:GOTO 1140 
I(K)=6-Il-Jl:J(K)=Jl:GarO 1140 
IF B(K)=0 THEN GOTO 1230 
B(K)=0:K-K+1 
IF K<=N THEN GOTO 1190 
END 

VE=22:HO=23:CURSOR TO VE,HO 
PR I \T " SCH I J F : " ; ;< ; " V A;4 : " ; I ( K ) : " NA.AR : " ; J ( K ) 
GOSUB 5700 :REM VEKPLAATS SCHUF 

TL=TL+l:VE=22:HO=l:CUfiSOR TO VE,HO:PRINT TL 
B{K)=1:GOTO 1140 
END 

FOR X=l TO N :REM ZELF SPELEN 

P1(X)=X 
NEXT X:NM=N+1 

VE=22:HO=20:CURSOR TO VE,HO :REM -VAtJ PAAL- 
INPUT:"SCHIJF VAN PAAL:";PAS 

IF PA$<CHR$(49) OR PA^-CHRS(5X) ISM mSH 
PA=VAL(PA$):IF PA<1 OR PA>3 THEN G0!IO 20M 
HO=40:CUP^OR TO VE,HO :RQ« -NAAR PAAL- 

I:J.°UT; "NAAR Pf>AL:";PB$ 

IF PS5<CHR$(49) OR PBS>'CHR|(S:J WW 2)70 
PB=VAL(PB$):IF PB<1 OR OSW 2GfO 

IF PA=PB THEN GOrO 2120 

if hg(pa)>0 then 2130 
gosub 3200: goto 2030 
hv=hg(pa) :kn=hg(pb) 
av=:im-hv:a;^=nn-iin 
if pa=1 then sn=p1(av) 
if pa=2 then sn=p2(av) 
if pa=3 then sn=p3(av) 

IF H;J=0 THEN GOTO 2230 
IF PB=1 THEN SR=P1(AN) 
IF PB=2 THEN SR=P2(AN) 
IF PS=3 THEN SR=P3(AN) 
IF SR<SN THEN GOTO 2120 
K=SN:I(K)=PA:J(K)=P3 
GOSUB 5700 
HN=HG(J(K)):At'I=NN-HN 
IF PB=1 THEN P1(AN)=SN 
IF PB=2 THEN P2{AN)=S8 
IF PB=3 THEN P3(Atl)=S[il 

TL-TL+1 : VE=22!HOl:CURS0R TO VE,HO:PRINT TL :REM TELLER 



:REM FOUTMELDING 



:REM BEPAAL SCHIJFNUMMER-VAN- 



:RE» GEO) SCHIJr OP PAAL-MAiW- 
iREN eePML SCHUFNUHHCR-NAAR- 



:REH SCHXJFNUMHER HAAR NIEOWE PAAL 



3100 
3110 
3120 
3130 
3140 
3200 
3210 
3220 



GOSUB 3300 

IF Y=l THEM GOTO 2030 
INPUT; "NOG EEN KEER? J/N;";A$ 
IF A$="J" OR AS="j" THEN RUN 
END 

VE=B0:!'IR=1: INVERSE 
FOR H0=13 TO 65 STEP 2S 
CURSOR TO VE,HO 
PRINT NR:,NR=NR+1 

HOME:X=0 

INPUT; "WILT U ZELF SPELEN ? J/N:";A$ 
IF A$="j" OR AS="J" THEN !C=1:RETURN 
IF A$="n" OR A$="N" THEN mmm 

GOTO 3100 'mm QBMiiSK tmm 

V= 23 :HO= 20; CURSOR TO VE,H0 :1>m P@(JIMELB1W3 
PRINT" DEZE VERPLAAtSlNG I<M1 NIBI" 

FOR X=l TO 1500 

msi X 



:REM TOREN VERPLAATST ? 
:R6M VOIjCENDE SCHUF 



:REM GEEF PALEN NUMMEP.S 



:REM ZELF SPELEN ? 



3240 
3250 
3260 
3270 
3200 
3300 
3310 
3320 
3330 

mm' 



HO=l: CURSOR TO VE,HO 

FOR X=l TO 60 

PRINT CHR${32); 

NE.XT X 

RETURN 

Y=l 

FOR X=l TO N 

IF P3(Y)=X THEN y=Y+ltNEXt X 
IF Y=X+1 THEM X=0 



5010 
5020 
5030 
5040 
5050 
5060 
5070 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5230 
5290 
5400 
5410 
5420 
5430 
5440 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5600 
5010 
5620 
5630 
5640 
5650 
5660 
5700 
5710 
5720 
5730 
5749 
5750 
S760 
5770 
5780 
5790 
5300 
5610 
5820 
5830 
5840 
5050 
5860 
5U70 
5075 
5080 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6130 
6200 
6210 
6220 
&230 



:REM TEKEN BODEM OP SCHERM 



REM TEKliN TOREN OP SCHEIE! 
REM M.W; SCHIJF 



}REM TOEN V£KPLAATST 7 



FOR VE=8 TO 19 

FOR H0=14 TO 66 STEP 26 

CURSOR TO VE,HO 

PRINT PL$ 

NEXT HO 

NEXr VE 

VE=BO 

BM$=CHRS{160) 
FOR H0=1 TO 79 
CURSOR TO VE,KO 
PRINT BMS 
NEXT HO 
RETURN 
K=N:VE=ao-A 
GOSUB 5400 
H0=PP(1)-K 

CURSOR TO ift;,f© 

PRINT SF$ 
H0=PP(1)+A 
CURSOR TO VE,HO 
PRINT SFS 
K=K-A:VE=VE-A 
IF K>'0 THEN GOTO 5210 
SFS^"" 

FOR X=A TO K 
SFS=SFS+CHRS(I2?} 
NE.XT X 
RETURN 
SGS="" 

FOR X=A M K 
SGS=SGS+" " 
NEXT X 
RETURN 

SV$=" "+SF$+' 
RETUR.N 

HO=!'Q-K 

cursor to ve.ho 
pri:jt sss 

KO=PQ+A 

CURSOR TO VE.HO 
PRINT SS$ 
RETURN 

Z=l :REM SCHIJF NAAR RECHTS**VERPLAATS SCHIJF 



"+SF51-'* 



:REH VOLGEtiDE SCHIJF 

tsm mm' .sebijf 



:REM MAAK LEGE SOmf 



:R£.M MAAK VB<PLAATS S:UUF 



:REM PRlMf SCHIJF 



:REl-l SCHIJF NAAR LINKS 
:REM MAAK SCHIJF SF$ 
:RE« MAAK LEGE SCHIJF SG? 
S«|81«9aAX VERPLAATS SCHIJF SV$ 

POSITIE P.V\L-VAN- 
:REM POSITIE PAAL-NAA.R- 
:REM HOOGTE TOREN- VAN- 
:REM HOOGfE TOREN-NAAR- 

:REM VERPLAAtS SCHIJfP OHHOOG 

m HS1I« SCHIJI? 



:RE.M PRINT SCHIJF 
:RliM NIEUWE SCHIJF 



IF I(K)>'J(K) THEN Z> 
GOSUB 5400 
GOSUB 5500 

omm 5SSS? 

PV=PP{I(K)) 
PN=PP(J(K)) 
HV=HG(I(K)) 
HN=HG(J(K) ) 
PQ=PV 
VE=BO-HV 
SS$=SG$ 
GOSUB 5600 
SS$=SF$ 

VE=VE-A t 
GOSUB 5600 
IF VS>TP I'HEM 5810 
HG(I(K) )=HV-A 
VA=?y- ( K+A ) : NA=PN- ( K+A ) 
FOR X=VA TO NA STEP Z 
HO=X 

CURSOR TO VE.HO 
PRINT SVS 
NEXT X 

SSS=SGS 
GOSUB 5600 
SS$=SF$ 
VE=VE+A 

GOSUB 5600 

IF{ (BO-A)-HN)>-VE TtlEN S^Q 
HG( J(K) )=HN+A 
RETURN 
HOME 

FMS="FOUTIEVE irWOER! ! ! " 
N$="":N=0 

PRINT" AAOTAL SCHIJVEN ? {max 12): 
GET INS 

IF INS="" THEN GOTO 6140 

IF IN$=CHR$(13) THEN GOTO 6230 

IF IN$<CHR$(43)OR n)$>'C«R$(57) THEN PRIMT m$£G0TO €130 
PRINT INS 

NS=N$+IN$ 
N=VAL(N$) 

IF N<1 OR H?12 THEN PRINT FM$:GOTO 6120 

GOTO 6140 :REM VOLGEfK IMVOER 

RETURN 



!Ref4 VEKPLMTS SdHUP- 
:REH HORIZONTAAL 



:REH VERPLAATS SCHIJF OMLAAG 



:REM PRINT SCtllJF 



•.mi PRINT scHur 
0im tiiLw scHur 



:REM INVO£M fmiM. SCHIJVEN 
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SUBJECT: ACIA 65c51 and MODEMS 
To: all 6551 users 
From: Bram de Bruine, The Netherlands. (6-1-87) 



« 



******«*««**««*«*«******«*«*««»*«««««««»««««»***«**»*««■ 



AGIA PROBLEM 



I have had a problem with my Acia. The baudgenerator would n't run 
continuously. Sometimes he did not oscillate at all! 



The problem of shut off of the 

internal oscillator 55C51 (no signal 

on pin 5 RXC) is solved by the 

scheme next. The problem lives only 

by CMOS versions in combination with 

a certain X-tal. 

C1 from pin 6 to ground 

02 from pin 7 to ground 

C1=6pF ... 

C2=6pF 



6 
1 
1 

1- 
1 
1 
1 
1 

— — C1 



65C51 



1 1 

— 1 1 1 r 
1 1 

Xtal 



_ C2 

1 
1 



^^LIT SfmPr .IfXm. 

Modems are getting more popular these days. Many databanks uses the split 
baudrate of 1200/75. The Acia can handle differend receive/transmit speeds, 
if bit 4 of the controlregister is zero, and a clocksignal for the receiver 
is present on pin 5 of the acia. This clocksignal is generated by timer2 of 
a VIA. (5522). Timer 2 is programmed in the free running mode,, (oscillator) 



PROGRAMMING A VIA AS AN OSCILLATOR 



^ — — 1. n f — 




in 



r 



4 = decrement counter 

^ = shift one bit out of SR to CB2 

Every clockcycle (if systemclock = 1 Mhz , one clockcycle = 1 uS) the T2 
counter is decreased by one. After each timeout of T2 the internal shiftclocli 
(T2C) is inverted. On a rising edge of this shiftclock the programmed 
bitpattern is clocked out of the shif tregister . (CB2) After every shift b7 
becomes bO. By use of a bitpattern of 01010101 ($55) in the shif tregi ster , 
the T2 counter must be loaded with T/4. (see diagram) Also the shif tregister 
can be used as a divider, (f.e. 00001111 [$0F] adds a divisionfactor of 4) 
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clock = 16 * 75 = 1200 Hz T = 1/f = 833 uS. 

Mode ACR432 = 100 (free running) 

T2CL = 833/4 = 208 uS 

Ditpattern shiftreg = $55 or $0F with T2CL = 208/4 = 52 uS. 



; Program name: SPLIT. MAC ■ 'i-^^'' :■ < ' - f A •■■'<. ■ 

;Date: t mi 1986 ■ ' 

; Programmer: Bram de Bruine 

; Program requirements: $12 bytes 

;Hardiriir#: DOS 65 

;Purpose: SPEEDCONVERSION 1200/75 - 75/1200 MODEM--)ACIA 
; Program description: CB2 VI A2 IS CLOCKOUTPUT AND MUST BE 
; CONNECTED WITH RKJ- PEl 5 ACTr 



* # * » » 



1000 



ORG 



$1000 



0010 VIAMODE EQU 
OOOF CL0UD1 EQU 
0055 CL0UD2 EQU 



0032 
0006 
0066 
0018 



J600010000 

mmmm 
%o^ 010101 



J Free running t2 ' ; 

; Symmetric output clock 

; Symmetric output clock div by 4 



;Oscillatopfpeqiieneles dependend on systeraclock 



T1200 
T19K2 
T12002 
T19K22 



EQU 
EQU 



EQU 



52-2 
13-2 
104-2 
26-2 



; 52*4=208 us 

;13 us 

; values for 



IMhz 



(double) 



;Via registers 

E11B ACR2 EQU $E11B 

Ell A SHIFT EQU $E1 1 A 

El 18 T2CL - EQU $E118 



1000 A9 10 OSC75 LDA ?^VIAMODE 

1002 8D 1BE1 STA ACR2 

1005 A5 32 LDA T1200 

1007 8D 18E1 STA T2CL 

100 A A9 OF LDA j^CLOWOI ' 

100C 8D 1AE1 . , STA ' SHIFT. ' 

100F AD 1AE1 ■ LDA SHIFT- ' 

1012 60 RTS 
Errors detected: 0 



}T2 is Ode. 

;75 baud (*16) 
jLoad timer 

;Bit pattern/division factor 
;Start oscillator 



GEMIRATION 1200 BAUD CLOCK 



clock = 16 * 1200 = 19.2 kc/s. --) 
0SC1200: Same as 0SC75, but nm 

DOS-65 used the same output for the 



disconnect the beep part, 
values T12002/T19k22. 



T = 52 uS T2CL = 52/4 = 13. 

and CL0UD2 is programmed. Unfortunately 
beep! signal. So turn down volume, or 



For systems with a systeraclock of 2 Mhz, use the 



The only hardware modification is a wire from acia to via. (use a switch or 
(modem)connector as a switch: RS232 pin 17 RxC A'CSA 

pin 18 CB2 VI A2 

In the modem-connector pin 17 must be connected with pin 18. 
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Centronics input for DOS65 or junior computer. 



If testing a Centronics output or getting data from one ccnaputer to another, 
tfte ^T:te^ftg^ ^5regFaiB could come in liandy. It simulates a Centronics input 
and it is possible to write bytes directly into memory. To get the input on 
the screen it is only necessary to change the 'jsr put' in 'jsr $c023' for 
the D0S65 cofflputef di* 'jsf $1334' for the jwiew computeir. ISwe program ttaws 
6522 port b. 



t itle 

y 

; author 



centrm.tii^c 

DOS65 system 
E.R. Elder enbosch 





0200 


• 
> 


org 


$0200 


- ) 




0010 


> 

ct»unt 


e<|u 


$0010 






Elll 


> 

vbpad 


equ 


$elll 


. ' . '^v - " » , , ' 




E113 


vbpadd 


equ 


$ell3 






EllC 


vbpcr 


equ 


$ellc 






EUD 


vbifr 


^qu 


$elld 


'■ 






; for junidr computer, use: 








; vbpad 


equ 


$1801 








; vbpadd equ 


$1803 








J vbpcr 


equ 


$180c 








; vb i f r 


equ 


I? loUd 




0200 AO 


00 


init 


Idy 


#$00 




02# if 


d& 




Idx 


#$00 


0204 A9 


OA 




Ida 


#$0a 


; set 6522 mode 


0206 8D 


ICEl 




sta 


vbpcr 




0209 # 


w 




lim 


#$00 


: setuD liwds as inouC 


n20B 8D 


13E1 




sta 


vbpadd 




020E 85 


10 






count 


: beeln storine at $0300 




m ' . 




Mm 


#$03 




0212 85 


ii 




sta 


eount+1 




0214 20 


1D02 


> 

loop 


jsr 


get 


; main progr^ 


0217 20 


2802 




jsr 


put 




021A 4C 


1402 






loop 


1 end of. i^ogram (endless loop) 


021D AD 


IDEl - •• 


> 


Ida 


\rh i f r 


; Centronics inpwt routine 


0220 29 


02 




and 


#$02 


; is there a character? 


0222 Ft 


f9 




beq 


get 


; if not, try again 


0224 AD 


nil 




Ida 


vbpad 


; If there is , exit ; 


0227 60 






rts 






0228 91 


10 


» 


,»Cf ' 


f countj ,y 




022A E6 


10 




pern 


, cijunt 


; increment counter 


02 2C DO 


02 




hmm ■ 


ret 




022E E6 


11 




inc 


count+1 




0230 60 




ret 


rts 








0200 


> 


end 


init 












label table 




count 


0010 


get 


0210 init 0200 


loop 0214 pat : 0228 


ret 


0230 


vbifr 


EllD vbpad Elll 


vbpadd El 13 vbpcr EllC 



Errors detected: 0 
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OOman 13E 27 nov 1986 

Author : Frans Verberkt, Hillekensacker 12-10, 

6546 KG Niimeqen, The Netherlands. 
Transl.: Nico Verberkt/ The Netherlands. 

In DE 6502 KENNE3? 46/ page 10 I read the program COMMENT 
which also can be adapted to ASSM/TED of Moser in the 
APPLE. However with some alterations: ASSM/TED does not 
code the end of the line with CR (SOD)i but recognizes it 
if the most significant bit of the character is high. So 
the test on this is CMP »S80...BCS. 

It also would be nice to build in a function by which 
means the line would not be changed, this is avoided if 
directly after the semicolon (;) the minus sign (-) is 
used. 

Furthermore directly after raising CURPOI is controled 
with CEME by which means this certainly cannot get beyond 
the textHacea if nevertbeleaa a demwStfie mf0A- to« cWiged 
by wtofig operating; e.g. when you walk abou't in the moni- 
tor and alter something on the textstring {never do 
this! ! ! ) . 

The niceness of this program is that when you have typed 
it with this text censfaitelf « tttms asMOMteg and run- 
ning, you can read the saiie text in leiwercase« which 
easier to read. 

«»»«»«i»lt»ill»i»»i«»»l««#tjt«l»»ll«l 
# I AM CURIOUS TO KNOW HOW THIS # 
ft PROGRAM AS A KIND OF COMMAND « 
» CAN BE BUILD IN, IN MOSER's t 
t ASSEMBLER. WHO HELPS 1 i 
tl**tM«*i<««««tMtit«»i»ttl»t»f« 
.OS 

0570 ; 

0590 !#»#» PAGE ZERO t««f 



BCH TO HODIFY THE ELBCTGR &« mimS &m SW USE KEtH 
'- — ffasa; ■ ' .( ' ^'^A' Jrr'' ' '. — - 

Andrew Gregory, England. 

To make this card work with DOS65 V2.0 a few changes to 
the addressing^ , pee tw^ired* P?33f?ffed «p, fi^^a^s^-. j ..^ ,(- , 

1) Build the card out of TTL LS or TTL HC(T)MOS. I have 
built mine from TTL LS but do not envisage many problems 
with HCMOS versions provided it is remembered that only 
HCT devieaa ^eimm fem.WL ISi Seven 6264 rams are 
needfed, tftif ttas socket xm&&ik WpV^. 

2) Reduce R27 (IK) to 390 ohms. Otherwise it will not 
function reliably with a 65C02 processor. On my card IC7 
was a 7412/ but I an not sure if this is crucial. See the 
note about HGHOS cpu catds elsewhere in this Issue. 

3) Set all the dip s«4tches off. 
follows: 

E - L D - K 
R ...i. Q 

O N no connection 



The links are made as 



no eenneotion 



0610 CURPOI .DE $18 

06«) ; 

0660 ;#### POINTERS ASSM/TH) lilt 



TEMPORARY NEHORX 



0680 LOME 
0690 CEME 
0720 

0740 ;tMI COMMENT »«!« 



.DE $100 
.DE $D3 



; BEGIN MEMORY 
;END OF TEXT POINTER 



4) Lift pin t «<it of its socket then malw t^e 

following connections »*»en viewing the card with the 
writing the ecarrect way 

Connect a IK resistor from IC6 pin 13 «B9lts. 
Connect IC4 pin 3 to P left. , 
Connect IC6 socket pin 8 to N centre. ' 
Connect IC6 pin 8 to N right. 
Connect IC4 pin 12 to H. 
Connect IC4 pin 14 ti IC6 pin 9. 
_______ — + 

The card now occupies $0000 to $DFFF and 
will operate at 1 of 2 MHz. The effect 
of these changes is to connect A13, A14 
and A15 to the Inputs c$) N9 and place an 
inverter (N2) in its output. 



0900- A5 18 




0760 


.BA 


$0900 






0780 START 


LDA 


*CURPOI 


:SAVE TEMPORARY mxm 


0902- 48 




0790 


PHA 




0903- A5 19 




0800 


LDA 


*CURP0I+1 




0905- 48 




0810 


PHA 






0906- AD 00 


01 


0830 COMMENT 


LDA 


LOME 


; BEGIN ===■• POINTER 


0909- 85 18 




0840 


STA 


•CURKH 


090B- AD 01 


01 


0850 


LDA 


LOME+1 




090E- 85 19 




0860 


STA 


*CURP0I+1 




0910- AO 00 




0880 


LDY 


#$00 




0912- 20 52 


09 


0890 NEXT 


JSR 


INCPOINT 


;INC+CMP CURPOI 


0915- B@ M 




0900 


BCS 


COMEND 




0917- m 18 




0920 XIT 


LDA 


(CURPOI), y 


09X9- C9 3B 




0930 


CMP 


#■; 


; FOUND SEMICOLON 


0918- DO F5 




0940 


BNE 


NEXT 




091D- 20 52 


09 


0950 


JSR 


INCPOINT 


;INC+CMP POINTER 


0920- BO 29 




0960 


ees 




|j6MtP@S « Wa OP FILE ? 


0922- Bl 18 




0970 


LDA 


0924- C9 2D 




0980 


CMP 


1'- 


iiF MINOS SIGH "mm 


0926- FO EA 




0990 


BEQ 


NEXT 


•.mseam to crmigb 


0928- 4C 42 


09 


1000 


JMP 


SAME 




092B- 20 52 


09 


1020 LOWER 


JSR 


INCPOINT 




092E- BO IB 




1030 


BCS 


COMEND 


;CURPOI « Bfe FILE 7 


0930- Bl 18 




1040 


LDA 


(CURPOI),! 




0932- 29 7F 




1050 


AND 


#$7F 


;BIT 7=0 (POSITIVE ASCII) 


0934- C9 41 




1060 


CMP 


#'A 


;TEST ALPHA UPPERCASE 


0936- 90 OA 




1070 


BCC 


SAME 




0938- C9 5B 




1080 


CMP 


#$5B 


lteoci(z)+i 


093A- BO 06 




1090 


BCS 


SAME 


093G»- 81 18 




im 


LDA 


(CURPOI), y 




093E- OS 26 




1110 


ORA 


IS20 


;BIT 5=1 


0940- 91 18 




1120 


STA 


(CURPOI) ,Y 


;SET LOWER CASE 


0942- Bl 18 




1140 SAME 


LDA 


(CURPOI) ,y 




0944- C9 80 




1150 


CMP 


t$80 


;EOL BIT 7=1 


0946- BO CA 




1160 


BCS 


men 




0948- 4C 2B 


09 


1170 


JMP 


LOHER 




094B- 68 




1200 COMEND 


PLA 




•RESEX TS1P0RARY VSmm 


094C- 85 19 




1210 


STA 


*CURP0I+1 


094E- 68 




1220 


PLA 






094P- 65 18 




1230 


STA 


*C0RKJI 




Of SI- 60 




1250 


RTS 




SBACK TO CALLER 






1270 : 










1290 :iift wmmm* tamm iiit 






1300 








0952- E6 18 




1310 INCPOINT 


INC 


*CURP0I 




0954- DO 02 




1320 


BNE 


COMPAR 




0956- E6 19 




1330 


INC 


*CURP0I+1 




0958- A5 19 




1340 CX3HPAR 


tSh *euRK>i-i>i 


;IF CURPOI •■= CEME 


095A- 05 D4 




1350 


CMP 


*CEME+1 


;THEN CARRY=SET 


09SC- 90 06 




1360 


BCC 


INCIT 


095E- DO 04 




1370 


BNE 


INCIT 




0960- A5 18 




1380 


LDA 


*CURPOI 




0962- C5 B3 






CMP 


*CEME 




0964- 60 






RTS 







BRIEF AAN DE REDAKTIE 

Wally E. Boer, Nederland 

Als men bij DOSeS-Baaiie- i&t: ^^ingtcMc- 
tie gebruikt, dan kbiftt d6 cufisor fiiet op 
het schenti. Bij INPUT korat de cursor wel 
terug. Om bij GET toch de cursor op het 
scherm te krijgen moeten twee registers 
van de CRTC op de videokaart gevuld 
worden met bepaalde data. Dit kan in 
Basic door voor de regel met GET twee 
poke's te geven, t.w. P0K6 57664,10 i 
POKE 57665,0 

Men kan er ook een machinetaalprogramma 
van maken en ergens op een veilige 
plaats in het geheugen zetten, en als. 
het nodig Is <^roepen met CALL. Dit 
wordt dan: 
A9 OA 

8D 40 El S'Mress register 
A9 00 

8D 41 El ; Register file 
60 



Zelfbouwer Elektuur's EC65K zoekt 
kontakt met Belgisch*. ^l^S^iwers. 
Erik Olaerts, Zavel»t6»Cra«t 13, B-3020 
Herent, 016/237378. 

■ T-:*"- ^ — — - 



systeem, bestaande uit: 
asedMKMieid (scherm, kast, toetsenbord) 
mm^Sm* 8032-S S bits/32KByte, 80 kol , 
25 regels, Basic 4.0 op Rom. 3 poorten: 
IEEE, User port, Cass. port. 
Dual disk drive 8050, 2x512KByte, 5 1/4" 
en 4KByte intern geh. Matrix printer AS 
8024, 132 kol, pinf. IEEE Ser. Interface. 
Serieie kabel. Doos printer papier. 
Prijs n.o.t.k. (richtpr. ca. f. 1.800,==) 
Alleen als gehel te koop. 
Victor Kroon, Zeisstr.54, 3075 NZ R'dam. 
Telf.: 010-4842778 (na 18.00). 

OP COMPOTERVAKANTIE? 

COMPtTTER WORLD organiseert in 1987 een 
drietal computervakanties in het Zwarte 
Houd. Ook geschikt voor meisjes. Vraag 
twrachures aan bij COMPUTER WORLD, Hurst- 
Wegl 62B, D-7800 Freiburg (0761/44775). 
■Ija^rbij naam en adres Redaktie DE fi§02- 
K^NER opgeven is van belang! 
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Ei 5 Q JB 



KEIMMER 



HOE MORDT DE VIDEO CONTROLLER 6845 GEPROGRAMMEEIBSf ? m 



R5 



DOOR : Tony Lehaen, Belgie. 



Dit artikel maakt het U misschien duidelijker hoe de CRTC 
6845 op de VDU kaart geprogranmeerd kan worden, dooc het 
berekenen van de registerinhouden. De 6845 beschikt over 
17 registers. Alvorena deze <l7'-cei^i«ma berekenen 
dienen eerat enkele begrippen nadfet tesgelicht te worden 
en enkele gegevens bepaald. 

Bij een geuoon TV toestel met bowegende beelden in ons Eu- 
ropees 525 li jnenstelsel worden twee beeldrasters (met in- 
terliniSring) van elk 312,5 lijnen per beeld bescdieavao. 
De rasterfrequentie is 25 Hz of 25 beelden per secbnde, 
mt an een flikkervrij beeld te verkrijgen. De horizonta- 
. frequentie is dan 625 x 25 = 15625 Hz. 
lets anders ligt het nu met de stilstaande beelden van 
enze video, waar het raster van 312,5 lijnen (zonder in- 
terliniSring) 50 maal per seconds yeschreven wordt. Er 
tmmt.. ppgeinerkt worden dat het hier gaat over een Video 
mwttt*^ pC W toe*t*l roet video-ingang (dit in vetfeand met 

«eor Qe Video kunnen mi de volgend« g«ia«v«iia b^saald 

(A) De rasterfrequentie = 50 Hz 



^^^^ ^ ' ^acQiidc 

(3) De horizontale frequentie = 31275'"x"'M^' 1^25 Bz 
(C) De horizontale synchronisatie pulsbreedte = 4 uSec. 

. (D) De rasterscantijd = = = 20 mSec. 

, (A) 50 

i ■ : .■ • * 

(E) De videolijntijd = = = 64 uSec. 

, , (B) 15625 

(F) Dg oscillator dotf requentie (of klokfrequentie) = FX. 
Bij de VDU kaart gaat men ervan uit dat elk karakter 8 
.Jots breed is en dat er in 46n lijntijd van 64 uSec. 
(toriapntale synchronisatiepuls van 4 uSec. inbegre- 
g^J 128 karakters op het scherin geschreven worden. 
Bil; SBef t ons ala klokfpe^ntie: ias x 8 

Ex - — — » 16 MHz 



^ de VDU kaart (noet *W -mn Miftal van 16 MHz 
bruifet vtcwdan. 



ge- 



(G) De CRTC karakterfrequentie = 



(H) De CRTC karaktertijd 



1 

(G) 



(F) 
8 
1 



16 

— = 2 MHz. 
8 



= 0,5 uSec. 



(I) Aarital videolijnen per karakter = 8 + 1 lege lijn = 9 
(J) Totalo vertikale karakterli jntiid = (E)x(I) = 64 x 9 = 
576 uSec. 



Bepalen van de registerinhouden 
RO 



■Rl 
R2 



R3 



R4 



Horizontaal totaal = totaal van de zichtbare + niet- 
zichtbare kasj^^^^er regel - een. 

RO = --- -X !. 128 - 1 = 127 

H<5rizontaal display = aantal zichtbare karakters per 
regel . 

Rl = 80 (elk formaat kan hier vrij gekozen worden) 

Plaats van de horizontale synchronisatiepuls in aan- 
tal karakters op de horizontale lijn: 



R2 



R0+R1-R3 



127 + 80 -8 
2 



'99,5 afgerond = 100. 



De vertikale synchronisatie pulsbreedte ligt voor de 
6845 vast op 16 videolijnti jden. 

De horizontale synchraniaj^}^ f|lMre«d£« in aantal 

karakters is : ' ' 

R3 = (C)x(G) =4x2=8 

Vertikaal totaal = totaal van zichtbare en niet- 
zichtbare karakterregels - een. Dit giag aii^ motas 
zijn dan de rasterscantijd (D) =20 wSeC* 
De totale karakterli jntijd (J) = 576 vfym^ 



- 1 



20000 
576 



1 = 33,72 afgerond » 33. 



Vertikale f i jnaf stemning = aantal videolijnen van 64 
uSec toe te voegen aan R4, omdat door de afronding 
van R4 de rasterscantijd geen 20 mSec me«ic ia, 
m im WOOO - (34 X 576} > 26000 • 1^14 * 416 

uSee. ■ ■ 

416 

R5 = = 6,5 afgerond = 6. 

64 



R6 



R7 



Re 



Vertikaal dia 



lay " aantal «iehtbiir<» lurakteeregels. 
etnaat kan hier vrij gcKozeh worden ). 



Plaats van de vertikale synchronisatiepuls in aantal 
karakterregels. Dit bepaalt de hopgt« Van de boveft- 
rand en ondeccand. 



R7 



33 1-24 



>• S8,5 afgerond 28 



Interlinieringsmode {sb^ 4fe tss«e«jncaniaede) , de 6845 
heeft 3 moaeli-ike modes. 

Mode 0 



R9 



niet gelnterlinieerd (norraale synchronisa- 
tie) 

Mode 1 : gelnterlinieerde synchronisatie 
Mode 3 : gelnterlinieerde syncJwonisatie met dubbel 

aantal karakterregels. 
Hen kiest voor Mode 0. 
R8 > 0 

Maximum videolijnen per karakterregel 
R9- (I) -1-9-1-8 

RIO: Gto-sor startlijn = onderste videolijn waar de cursor 
begint. De bits van 0 tot 4 bepalen de beginlijn van 
de cursor. De bits S en 6 becaalen de cursor display- 
mode. 



I bit elbtt Sidisplaymode 



+ 

1 0 


0 Iniet knipperende cursor 
1 -J _ ! 


1 0 


1 




— -— -— p 

geen cursor zichtbaar 1 

K ; 


1 


0 




snel knipperende cursor (1/16 van 
rasterscantijd: (D) 20 

= — = 1,25 mSec. 

16 16 


1 


1 


1 y. 

traag knipperende cursor (1/32 van 
rasterscantijd: (D) 20 

3 — = 0,625 msec. 

32 32 



VHaSnk mm i!<ljMiMet?eeld volgende keuze: 



Ib6|b5|b4|b3|b2|bl|b0| 
H — + — + — + — + — ^ — H — h 

I 1| 1| 0| Q| 0| 0| 0| - Hex 60 of Dec 96 

■♦ l—H — I — ) ( 1 H 

RIO = 96, dit betdcent traag knitmerend en startliin 

op videolijn 0. ■ 

-ail: Cursor eiadlijn » hoogte van de cursor uitgedrukt in 
aantal videolijnen. 

Rli « 7 formaat is vrij te kiezen tussen 1 en 6 
1: de cursor is 1 videolijn hoog 
8: de cursor ia S videolijnen hoog 
( » karakterhoogte ) 

R12-R13: Startadres van de controller 6845 op het scherra 
in het videogeheugen (voor de VDU kaart is dit 

$0000) . 

R12 en R13 vormen een 14-bits adres waarvan 
slechts de bits bO tot blO bij de VDO kaart 

R12 - R13 - O, m. Wi^lsm 8at startadres 
links boven m het s^m Muat. 

R14-8i5: Startadres van de cursor op het scherm in het 
videogeheugen. R14 en R15 vormen een 14-bits 
adres. 

R14 = R15 = 0, dit betekent dat de beginpositie 
van de cursor links boven in het scherm is. 

Rl#^7: Lichtpen. Kan gebruikt worden ais men over de no- 
dige software beschikt. 

* S9 SJ^'^akters per regel)?! is het zichtbare 
«n = 24 (karakterregels) \ deel o.h. scherm. 
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^;wan de GRTC timing tabic. 



|Reg'3|Dec| 



RO 


127 


$7F 


Rl 


80 


$50 


R2 


100 


$64 


R3 


3 


$08 


R4 


33 


$21 


R5 


6 


$06 


R6 


24 


$18 


R7 


2S 


$1C 


■ R8 


0 


$00 


R9 


8 


$08 


RIO 


96 


$60 


Rll 


7 


$07 


R12 


0 


$00 


R13 


0 


$00 


R14 


0 


$00 


R15 


0 


$00 


H16 


80 


$50 




.rM 





Horizontaal toti^fll -1=128-1=127 karaktetrs 
Hor. aantal karakters/regel= 80 karakters 
Hor. synchronisatie positie=XOQ karakters 
Vert/Hor. synchron. palsbreedte = 16/8 
Vei-tikaal totaal = 34-1=33 karakterregels 
Vert, totaal f i jna£stenim.=6x64uSec=416uSec 
Vert, aantal karakterrerjels = 24 
Vert, synchron. pps. = 28 karakterregels 
Interlinieringsmode V 
Aantal scanlijnen per regel =9-1=8 
Cursor start op videolijn 0 en traag knip. 
Cursor eind, bepaalt de hoogte v.d. cursor 
?iStartadres controller linksboven scherm 
\ 

'4 

istartadres cursor linkslx>ven i.h. scherin 

3. 

"i 

izichtbaar veld voor de lichtpen 



"$0:*=S geeft alle sequentiSle files op drive 0» 

■■$1:*=R geeft alle REL-files op drive 1. 

"$,*=U geeft alle USR-files op beide drives. 

■■$i:*=p geeft alle PRG-Eiles op drive 1. 

Tenslotte is het mogelijk om de raogeli jkheden 2. en 3. te 



■■$0:G?T*=S geeft alle SEQ-files op drive 0 waarvan iSe 

naam bagint met een G en waarvan de b»e^ 

letter van de naam eenT is. 
"$1:????=R geeft alle REL-files op drive 1 waarvan de 

naam uit 4 tekens bestaat. 
■■$/PBE*=P geeft alle PRG-filea waarvan de naam begint 

met PBE op beide drives. 

Met deze wetenschap is het uitermate vreerad dat in BASIC 
4.0 DIRECTORY of CATALOG niet gevolgd raogen worden door 
een string/ maar alleen door een drive numner. Hierdooc 
zijn alle kunstjes onmogelijk (in DISK-O-PRO mag Wg^ 
rigens wel, zodat het laatste voorbeeld in DISK-OotHS 
moet worden ingetypt: DIRECTC«Y "PBE*=P" (R)). 



******* 



k ***************************** 



* EEN PAAR TIPS VOOR COMMODORE B ASIC * 
***Tnnr*-5r3rFT*TrT5nr*Tnnnr* wjr»w»wiiinr*w»w*w***** 

Door : Nico de Vries/ Nederland 
IHPUT zonder vraagteken. 

Het is door middel van een POKE voorafgaand aan een INPUT- 
stdteuient iiet door de INPUT gegenereerde vraagteken te on- 
dSEdrukken. De POKE is voor iedera ROHaet anders! 



3ASIC 1.0 
BASIC 2.0 
BASIC 4.0 
VIC 20 
C 64 



(OR) 
(NR) 



P0KE3 , 1 

P0KE14,1 

P0KE16,1 

pcKBiaa 
mmmd 



■■la 'le input is het aan te bevelen d>! originele waardo 
(nal) i.^cu.j te POKKn. Programma voorbeeld (oude ROMs): 

10 P0K';3,i ! ' ., - . . 

20 INPUT'TYP UW NAAM IN";A$ 
30 POKES, 0 

Reset van CBM diskdrive. 



U kunt met di' volgenJe op<3rachten de CBM diskdrive reset- 
ten. Dit is h«?tzelEd-) rtla ee<i kou'Se. *fe«r| (gower up). 

BASIC: 

10 0PEN15,8,15 
Z'l PRINTItl5,"U:" 

J > ■;UD5S15 

UW SUPPORT/UNIVERSAL WEDGE: 
■■U: (R) 
of: 3U: (R) 

DISK-0-PR0/C0MMA|iro-O 
SSND"U:" (R) 

Selectieve directories. 



Het dicectory-com.Mndo van DOS SUPPORT of UNIVERSAL WEDGE 
heoft meer rfKxjelijkJiatien dan de meeste gebruikers WGten. 
liieiT ziju.,, ffjis^JflBSIli {TOOcb^ldenmefc bahulp van DOS 
SHP'PC«W): , I,: 

1. Coii^jlete directory: 

"$0 Alleen drlv/5 0. 
"$i Alleen drive I. 

"$ Beide drives 

2. Bepaalde filenaain otj\/i:ai}:in: 

"jO: f ilenaain Alleen drive 0. v 
■■$l:filenaam All.een drive 1. , 



Hiecb-j kunt U jebruik maken van ? en * om bepaalde namen 
lilit te solecteren. Hierbij is een ? een willekeurig teken, 
en een * geeft aan dat de volyende tekens er niet toe 
doen . Voorbeelden : -l - i , "■, 

"$0:???? geeft alle filenamen van 4 let'fcers op drive 0. 
"51 :G* geeft alle filenamen die met een G beginnen op 
drive 1. 

Zie ook de manual van de diskdrive, voor meer voorbeelden. 
3 . Bepaaia#"£li«ty^^, ^ft^eifen: 



uter Inc. toegenomen met 24% In eeirste 
kwartSSl" v«B!'¥ise!ial jaar 1987. 

Cupertino/Zeist, 30 januari 1987. 

Het eerste kwartaal van het fiscale jaar 1987 is voor 
Apple Computer Inc. afgesloten met een winst van ,58,5 
railjoen US $ ofwel 0,91 US $ per aandeel. In de vergetijk- 
bare periode van het jaar daarvoor werd een winst benaald 
van US $ 56,9 miljoen, ofwel 0,91 US $ per aandeel. Het 
fiscaal jaar loopt van oktober tot en met September. De 
omzet in het afgelopen kwartaal bedroeg 662,3 railjoen US $ 
hetwelk een toenaine van 24% betekent vergeleken met de- 
zelfde periode van het vorig jaar, toen de omzet 533,9 
railjoen US i$ jBKte^isg. De bruto winst uitgedrukt in ean 
percentage van> 'lie omzet bedroeg in het eertjte kwartaal 
51,3 [>rix:ent t.s.V. S0»7 (JCQcent in het eerste Iswactaal 
van het f iscal« jaar 19S6. De nieuwe APPLE }[ @S is goed 
ontvangen. 

EERSTE EUROPESE APPLE MACINTOSH "rKfl*6jM®WS,t,lfl|@: ' 'SSOWQRtO 

EXPO IN AHOY TE ROiTERDAM 

Op 22, 23 en 24 april gaat de eerste MacWorlil Expo van 
start in de Ahoy Hal leu te Rotterdam. Aanleiding tot de 
organisatie van Macworld Expo is de snelle penetratie van 
de Apple Macintosh in het i:)edri jfsleven als produktivi- 
teits hiil;-)middel op vrijwel elk denkbaar gebied. Tijdens 
Macworld Expo kunnen contacten worden gelegd en de nieuw- 
ste ervaringen worden ui tgewisseld, tussen It^veranciers 
van hard- en software, distributeurs, Macintosh gebrui- 
kers, Apple dealers, en uitgevers. Naar verwachting zullen 
uit 2«9iNijl ilmerilEtt aAs uit belangrijke Euro^se landen 
exposanten ruim 4.000 vierkante meter expositieruimte in 
de Ahoy Hallen bezetten. Deelnemers als Microsoft, Apple 
Computer, Blyth Software, Agfa Gevaert, Nantucket, Adobe, 
Association of Swiss Macintosh Developers, LetraSet, Hew- 
letS-rfan^scf ■ me a^fhit^e: tmbben hun deelname toegezegd. 
S**at iniaereBaante m» J4i«il«»e produkten is een lezingen/ 
comjfedi^i^i^Sinfia iaan da' eMpositie verbondgsn met sprefcers 
nit binnen- en buitenland. ■ - 



GBVRAAGD: 

Zelfbouwer Elektuur's EC65K zoekt kontakt met Belgisehft 
zelfbouwers. Erik Olaerts, Zavelputstraat 13, 3020 Herent. 
Tel.: 016/23 73 78. 



LlJl'fER TO THE EDITOR by Andrew Gregory, England. 

A note about HCMOS cpu cards: If you build your cpu card 
from HCMOS then leave IC 9 as 74LS01 and IC 20 as 74LS06. 
■m 7-'&m'im-'^>t^&i pemi^l^^ mi. nit increased to 1K5 
but I found that it then woriced arirellafaiy with the 65C02. 

A note about VDU cards: Everyone encounters screen flicker 
with these cards. It can be cured by replacing IC 8 by a 
74L30 when using an NMOS 6502. However the most effective 
solution is that suggested by Albert v.d. Beukel in DE 

6502 KENNER issue 46 page 17: Reconnect IC 8 pin 1 to 02 
{pin 27a of the 32 way connector). I built mine from HCMOS 
IC's with the exceptions of IC 20 and IC 21 wt^ich I could 
not obtain. 



U kunt ook selecteren op f iletype (dit ataat in geen enlcel 
manual !!!). Het gaat zo: 



PLEASE, SEND ALL YOUR PROGRAMMES TO THE EDITORIAL OFFICE. 



10 REM ***♦«*#«»«*#«#*♦««*«#**«♦***«** «**####«*«##«##««»f.««#« 

20 REM » 

30 REM * S L I D I N 6 S R I P 

40 REM « **««••«««««*«««*•»«««#*« 

50 REM * 

SItl * AHUSINS COHPUTER-GAME WRITTEN Iff BASlCODE-2 

70 REM * 

80 REM * FILL. THE LINES 10 > 999 WITH THE BASICODE - 

90 REM * ROUTINES FOR YOUR OWN COMPUTER! 



19Q B&M* 

110 REM*****««**«*««**«**»»*«****«»»««***«««*»»*««**«««««##«* 

120 REM 

130 REM . '1' ^ 

1000 A=200:60T020: REM SLIDING GRID 

DIM A<42) ,RI(4) ,PS<256) .B<42) .C<42) 
DIM PI <256) : REM WHERE THE CHAAaCT. 
REM SHOULD BE 

REM PS(I) CONTAINS THE POSITION 
REM OF CHR$(I) IN THE GRID 

RI(1)=-1 :RI(2)=1 :RI(3)=6:RI (4)=-6 ' ' ' • 

REM > SELECTION/INSTRUCTIONS < 

eOSUBIOOOO 
VE=8:H0=3:G0SUB1 10 

PRINT"Do you want instructions (Y/N) ?": 
G0SUB210 

IF(IN*="Y")0R(lN*="y")THENe0SUB8750:60T01450 
IF <IN$<>"n") AND (1N$<>"N") THEN 1600 ) ' 
G0SUB10000 
VE=3:H0=5:G0SUB11Q 
PRINT"You can select :" 



« 
* 
* 
« 
♦ 

2 » 
* 
* 

»##.### 



G 



1010 
1 100 
1150 
1200 
1250 
1300 

1450 
1500 
1550 
1600 
1650 
1700 
1750 
1800 
1850 
1900 
1950 
2000 
2050 
2100 
2150 
2200 
2250 
(^300 
2350 
2400 
,2450 
^500 
2550 
2600 
2650 
2700 

2750 
2800 
2850 



f igures 
1 fitters 
letters 
letters 



H0=5 

VE=06:G0SUB110:PRINT"1 > 3*3 

VE=08:G0SUB110:PRINT"2 > 3*3 

VE=10:60SUB1 10:PRINT"3 > 4*4 

VE=12:G0SUB1 10: PRINT"4 > 5*5 

VE=18:H0=0ie0SUB110 
PRINT"Seleot 1 to 4 please 
G0SUB210 * ^ 

IF(VAL(1N*)<1 )OR<VAL<INf) >4)THEN21S0 
M=VAL<IN$)+1 

M1=ASC("a") :IF M=2 THEN M1=ASC( "1 ") :M=3 
Ml =M1 -1 -M 
REM 

REM > ORAM THE GRID < 

G0SUB1 00 

F0RK1=0T0(2*M)STEP2 
F0RK2=18T0(4#M+18) 
VE=K1 :H0=K^siOSUB11O 
^www PRINT"-": 
2900 NEXTK2,K-1 

2950 F0RK1=01T0(2*M-01 :)STEP2 
3000 F0RK2=18T0<4*M+1S;STEP4 
3050 VE=K1 :H0=K2:60SUB1 10 
3100 PRINT"*"; 

3150 NEXTK2,K1 
3200 REM 

3250 REM -> INITIALISATION <- 
3300 REM 

3350 F0RB=0T042«#Ci)*-1 :NEXTB 
3400 F0RB=1T0M '^^ " - 
3450 F0RC=1T0M 

3500 PSa6»B+C:CH=M1+€*i*M ; 

IIS8 A(Pi5=?A:^??CH?=PS:P1 (CH)sPS 

lfii'NEXTB:AN»M*M-1 
3750 REM 

REM AN=NUMBER OF CHARS IN RIGHT 
REM POSITION 

t«7»MsA<B)=32:PS(32)=B 
EM 

RE« -> DEGREE OF DIFFICULTY <- 
REM 
H0=0 

VE=2:G0SUB110:PRINT"1 - Easy"; 
VE=3iG0SUB110:PRINT"2 - Noraai"! 
VE=4!G0SUB110sPRINT"3 - Dlffieult": 
VE=6:G0SUB110:PRINT"Select 1 to 3 
G0SUB210 ' 
IF(VAL<IN*)<1)0R<VAL<IN»)>3)THEN4350 



grid" 
grid " 
rid" 
rid" 



3800 

MM 

3950 
4000 
4050 
4100 
4150 
4200 
4250 
4300 
4350 
4400 
4450 




6 5 a i5 



KEIMME 



4S00 Fs=VAL(lN«) 

4600 DELETE PARTS OF TEXT 

^^tii^ifS SHUFFLE CHA^iACtlRi <- 
%70£r REM , 

4950 C=0 
5000 60SUB260 
5050 D=INT<RV*4+1 ) 
5100 RI=R1(D) 
5150 IF A<B+R1)<0THEN5000 
5200 IF B =P1<A(B)) THEN AN=AN- 1 
5250 IF B+RI=P1 (A<B+RI) ) THEN AN=AN-1 
5300 A<B)=A(B+RI) :PS(A(B) )=B 
5350 A<B+RI)=32 : PS<A (B+RI) )=B+RI 
^i9U IE 1 ,s,=enA(B)) THEN AN=AN+1 
450 IF i*liI=P1 (A(B+RI) ) THEN AN= 



5 

5500 
5550 

im 

1700 
5750 

li?8 

5900 
5950 
4000 
6050 
6100 
6150 

ti?8 

6300 
6350 
64G0 
6450 
iSOO 
6550 
6600 
6650 
6700 
6750 
6800 
6850 
6900 
6950 
7000 
7050 
7100 
7150 
7200 
7250 
7300 
7350 
7400 
7450 
7500 
7550 
7600 
7650 
7700 
7750 
7800 
7850 
7900 
7950 
8000 
8050 
8100 
8150 
8200 
8250 
8300 
8350 
8400 
8450 
8500 
8550 
8600 
8650 

3§ 



1 0 



<- 



1 

6 



. AN+1 

C=C+1 : IFC<F THEN 5000 

REM 

REM -> PtlNT CHARACTERS <- 
REM 

F0RB»1T0H!F0RC=1T0M 
¥E=«2*B)-1 :HO=16+4»C:GOSUB1 
PRINTCHR»(A<6*B+C) ) , 
NEXTC:NEXTB 
VE=8:H0=0;60SUB110 
PRINT" "! 
60SUB1 10 

PRINT"Try" :E : "? ": 
RETURN 
REM 

REM -> INPUT SLl6tl*ie CHARACTtR 
REM 

60SUB5750 

eOSUB21 0 : IFIN»="*"THENai 50 
REM 

REM -> CAN CHARACTER SLIDE ? <- 
REM 

D1=PS<ASC(IN») ) 
D2=PS(32) 
DI=D1-D2 
IF ABS<DI) 
IF ABS<DI) 
GOTO 6500 
IF D1=P1 (A(D1 ) ) 
IF D2=P1 (AC D2) ) 
AC D2)=A (D1 ) : A(01) =32 
IF D2=P1CA(D2)) THEN AN=AN+1 
IF D1=P1CACD1)) THEN AN=AN+1 
PSCAC 02) ) = D2 : PSC A C D1 ) :) = 01 
VE=2*BCD1 )-1:H0 = 16 + 4*CCDi:i 
G0SUB1 10:PR1NT" ": 
VE = 2*BCD2)-1 : H0 = 16 + 4*C(02:) 
G0SUB110:PRINTCHR*CACD2) ) ; 
E=E+1 :G0SUB6050:REM DISPL 
IF AN<M#H-Vr«EN4i®Q 
REM 

REM -> ALL IN 600D ORDER <- 
REM 

VE = 10:H0=0:G0SUB1 10!PRINftJ*lLL DONE ... 
VE=VE+2 : G0SUB1 10 * 
PRINT"Another game <Y/N) I'^t 
G0SUB210 

I F CIN*«n*' ) OR < IN»= "y THPlRUN 

REM ^ ^• 

REM -> END OF SAME" <- 

REM 

G0SUB10000 
PRINT 

PRINT"A tele-coproducfcxon by" 

PRINT:PR1NT 

PRINT"Ludo Delpire, Belgium" : PRINT 
PRINT"Marc Lachaert, Be 1 gium ": PRINT 
PRINT"Thomas Hofmeister, FR bermany** 
PRINT:PRINT"See you later!" 
END i ■ ; • r'l 
REM . 
REM -> INSTRUCTIONS <- 



THEN 
THEN 

THEN 
THEN 



7000 
7000 

AN=AN--1 
AN=AN-1 



NO OF TRIES 



* * 



* 
* 

* 
* 
* 
* 

*; 
* 
* 

« 
* 
* 
* 
* 

* 
* 
* 
« 




WANTED 

DEAD OR ALIVE! 

6809 Cross-Assembler 
to run under DOS65 v2 

used with a planned 
#809 second processor 

REWARD 

Hardware design 
when and if completed 



* 
* 
m 
* 

* 
* 

* 

» 

* 
* 
* 
* 

DC 

* 

* 
* 

* 
« 
* 
* 



***mi^^^***^(^^■*.■^^***^^^^i^.>ll.^^t■^t.**i^*^^^^*i^.i(^( 




TE ROOP 

Pl^k^de OCTOPUS met PCU, 64k, 

VDU, CPU, VoGding 5V/6A PE1267 
12 slots, Schrof f-kast , key- 
board, drives + kast + voed., 
18 Mc monitor gr., software en 
boeken. Prijs: 1200,=. 
2*Grafische kaart, RTC, Eprom- 
iner, Basicode-2, Univers. ge- 
heugenkaart (niet compl.), 
voeding 5V/18A PE1258, Junior- 
basiskaart+interface+8K-8K, 
ICS (65C02, 6532, 2716, 
82S100F, 2664, 74154, AD559RD, 
etc. Prijs: 400,=. 
Gehele koop: 1.450,=. 
Inl.: APC, Claass^is, 013- 
675078. 
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KEMtsJER 



8700 

8750 

8800 

8850 

8900 

8950 

9000 

9050 

9f00 

9150 

9200 

9250 

9300 

9350 

9400 

9450 

9500 

9550 

9600 

9650 

9700 

9750 

9800 

9850 

9900 

9950 

10000 

10050 

10100 

10150 

10200 

10250 

10300 

10350 

10400 

im 

10550 

\m 

10700 
10750 
10800 
10850 
10900 
10950 
1 1000 
11150 
11300 
11350 
11400 
11450 
11500 



REM 

S0SUB1 0000 : VE-2 : HO«10i iOSUBI 1 0 
PRINT"INSTRUCTIONS : " 

VE=VE + 1 :60SUB1 10: PRINT- 

PRINT 

PRINT"a ©•rilll* -4iiM*fii of litters oc'* 
f5JNI."""'"'»st's will appear. One square of" 
PRlNT"the grid will be empty." 



PRINT 



PRlNT"If you hit the key of a character" 
PRINT"which is next to the empty square," 
PRINT"the chosen character will go into" 
fJ?JMII!S*^? empty square.' If you qiimfcinue" 
PRINT"doing so, you should be ^.fe to" 
PRINT"bring all characters into numeric" 
PRINT"or alphabetic order .": PRINT 
PRINT "You can end the game at any noa«nt'* 
PRINT"by typing in an '^*'":PRINT 
PRINT"If possible: Disable the cursor" 



<- 



VE=23 :H0=0:60SUB1 10 

PRINT "Hit any key to continue ";i 

RETURN 

REM 

REM > Head line < 

REM 

G0SUB100 

VE=0:H0=2:60SUB1 10 

PRINT"*** - S L I 0 I N S e R 

PRINT" 

RETURN 
REM 

REM -> ER*SE PARTS OF TEXT 
REM 

F0RVE=2T06 
I F VE wf ♦ 1 THilUOSS 0 

NEXTV£ll«tTURN 
REM 
REM 

REM 
REM 
REM 
REM 

REM WRlTtEN IN JUNE 1985 
REM 

TUfiMAS HOFMEISTER 



60SUB210 



I 0 - ♦»♦" 



REM BY 
REM 
REM 
REM 
REM 
REM 
REM 



AND 



BOCMUtt S.R'.D. 
MARC LACHAERT 

'BELGIUM 




SLIDING G R I B 
NEW VERSION BASICODE 2 



kxtsnsion {64)t) Dynamic Ram card (EleKtuur April, lasZ) 
with stwitches to select memory. 



from le 11 0 4 cf—o 

1 ^ o — t) 

2 >f- o — 

3a ^— — O" 




V W 470 Ohm 
===__jj +5V. (C6) 



X Y 470 Ohm 

— === — j( +5V. (c6) 



of 



Wth these switches you can select memory in steps 
4Kbyte. All you need is a total of 16 dipswitches (2*8 
the like), and 14 cm flatcable>= 18 wires. 
BUILD: Put the dipswitches on a piece of print with holes 
i copper lines. Remove the copper from the cen- 

ts^ hel«S., Cut lose the flatcable wires for 2 cm. every 4 
wires, in6 all Individual wires 7 nm. strip and coat then 
with tin. Solder them on the print with dipswitches 
(switch 0 = black etc.), connect all other ends of the 
dipswitches to another, and to the wires left over from 
the £l«tci^efc Put two 470 ohra resistors in holes V S Y on 
the DRm-e&tS, and connect the other ends to another and 
to + 5V. = C6 (isolated wire!). Connect V to W, X to Y and 
these to the flatcable wire #16 & #17. First connect wire 
fi-"- miS'^'^i """^^^ (green) to B..F (IC 11), and then 
to. .♦10 to 0. .A. Be very sur« not to nsdE* false con- 
nections (practice stripping of flatcable flEatl ) . 



Maarten den Hertog, The Netherlands. 

i use the 64K SRAM-card, built in accordance to Elektor's 
Computer Special no. 3. In the issued scheme the authors 
have forgotten to give 8 pull-»K) resistow on the 
' chip-select-1 ines ' . 



10:TRACK 0 FOR HON BOOTABLE DISKS FOR EC65 OR DOS-JUNIOR 
40 : _ - ^ . - . 

50NMIVEC=$E7CB 



60INIDSK=SF464 
70AHOLD =$2363 
80: 

90*=S22OO 
100: 

llOBOOTUP 
120 
130 
146s 

150STROOT 
160SmUU 

170 
180 
190 
200 
210 

220STROEX 
230: 
240TEXT 
250 
260 
270 
2S0 
290 



By: Coen Boltjes, The Netherlands 



JSR STRGUT 
JSR INID^ 

me' iHHivEc) 

LDX #$00 
LDA TEXT,X 
BEQ STROEX 

mm- 

INX 

JMP STROOO 
RTS 



;PRiiirr NEXT 



=>END 



.BYTE $0A,S0D,S0»,${)A 
.BYTE •********************t 

.BYTE $0A,$0D 

.BYTE 'Insert Systemdisk to' 
.BME 'Boot tjp', $0k,$QD,$07 
.BStE $00 



3] 
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***************************************************** 

HANDIGE SUBROUTINES VOOR DE 6502 * 
r*TTnnr*Tr*'WTnnr* *********** * 



******** *****^ 



Door: Anton Maeller, tteaeflwa,' 



Hierna vindt 0 een aeMa^ subroutintS l^gf Sfth 

willekeurig 6502 systeetfi. 2ij zijn geheel systWHikStaiTOn- 
kelijk. 

De eerste twee, tie PUSH en PULL routines, horen bij el- 
kaar. De PUSH rojtine duwt de inhoud van alle 6502 regis- 
ters op de stack en gaat daarna terug naar het aanroepende 
prbgrainraa, met behoad van de oorspronkeli jke registerin- 
houden. De PULL routine trekt <Je inhoud van alle 6502 
registers, die door de PU^ sSiSine op de stack y^^: 
geduwd/ weer van de stack at en deze in de de^i^el- 
' ■ . registers en gaat daarna terug naat 'ftet itaMc^^piMe 



Voorbeeld vsen het aanrpepeft VfiW Mse routines: 

mm jsEE sum <M.i $mmj^WE 



********************************************************** 

* EXCHGA - EXCH/iNGE SUBROUTINE * 

* EXCHANGES OPERAND A WITH OPERAND B * 

* mmxn imSB OF HORK AKE&'S * 
*«*»«»**»*1lt»*<l!*#****(Nr*******«**************** 

; BEGIN 







; PUSH (?) 




mn, 




; PUSH (A) 








; C^RNOA 


C8PRNDB EOR OPRNDA 


EOR 


OPRNDA 






STA 


OPi«DA 






EOR 


OPRNDB 


'; OPRNDB : = 


OPRNDA EOR OPRNI® 


STA 


OPRNDB 






EOR 


OPRNDA 


■ OPRNDA 


OPRNraS BOR OPRNDA 


STA 


OPRNDA 










. i (A) 




PtP 




" ; fm. (P) 




RTS 




; END 





********************************************************** 
« BS6mS& - EXCHANGE SUBROUTINE * 

* EXCHANGES OPERAND A WITH OPERAND B * 

* HITH USASE Oe THE STACK * 
********************************************************** 



SUSR JSR PUSH 



JSR PULL 



SAA^ REGISTERS 



RESTORE REGISTERS 



De daarna volgende subroutines zijn alien van het typo van 
'not oinwisselen van twee operanden o£ twee registers, waar- 
bij geen gebruik wocdt gein-iakt van hulplocaties. Het ge- 
bruik spreekt voorzicteelf . 



-f *** 



************************** **************************** 

* PUSH - PUSH REGISTERS ON STACK * 

* SAVE REGISTERS P, A, X AtK) 5f ON IHE STACK * 
********************************************************** 



STACK * 
PUSH 



* 


soloo 


TOP 0? STACK 










BEGIN 




mp 






PUSH (P) 




PHA 






PUSH (A) 




TXA 










PHA 






PUSH (X) 




TYA 










PHA 






PUSH (Y) 




TSXi 






(X) := (S) 




tmm 






PUSH (RETW itdM^) 










{* COPY OF ftgEOaS ADBM 


i m 




STACK 


+05 


ENTRY *) 




tm. 










LDAAX 


STACK 


+04 


PUSH (P) 




PHA 






(* COPY OF (P) ON ENTRY 


*) 


LDAAX 


STACK 


+03 


PUSH (A) 




PHA 






(* COPY OF (A) ON ENTRY 


*) 


LDYAX 


STACK 


+01 


(Y) := STACK ( AX )+l 




LDAAX 


STACK 


+02 


(X) := 3TACK(AX)+2 




TAX 










PLA 






PULL (A) , 




PLP 






PULL (P) 




RTS 






sm 





********************************* ************************* 

* PULL - PULL REGISTERS FRai STACK * 

* ^ RESTORE REGISTERS Y, « P FROM THE * 

* ' STACK (REGISTERS MUST HM9S SIfeN SAVED * 

* 'PUSH' ROUTINE). * 

«**********************1fc*****************###«;*;i^^t^#M^ 



PULL TSX 



LDAAX STACK +02 

STAAX STACK +03 

LDAAX STACK +01 

STAAX STACK +07 

PLA 

PLA 

PLA 

TAY 

PLA 

TAX 

PLA 

PLP 

R^ 



BEGIN 

(X) := (S) 

( * COPY RETURN ADDRESS * ) 
STACK (AX) +8 := STACK (AX) +2 

STAPeCWH? S= STACK(AX)H 

(S) :« (S) + 2 

PULL (Y) 
PULL (X) 

PULL (P) 

END 



BXCHSB pm> 
PHA 
LOA 
PHA 
LDA 
STA 
PLA 
STA 
PLA 
PLP 
RTS 



OBtNOB 
OmDA 



OPBMtSA 



QEGIN 

PUSH (P) 
PUSH (A) 
PUSH OPRNDB 

OPRNDB := OPRNDA 

PULL OPRNDA 



m) 



PULL (A) 
PULL (P) 



********************************************************** 

* EXCHAY - EXCHANGE SUBROUTINE * 

* EJKB/WES ACCmULATOR WITH REGISTER Y * 

***************************************** »*ii**********«*** 

' ■ i asGiN 



EXCHAX PHP 


f PUSH (P) 


PHA 


PUSH (A) 


TYA 


• pu^ (Y) 


PHA 




TXA 


! PUSH (X) 


PtiA 




am 


: (X) := (S) 


LDAAX STAOi -K)3 


; (Y) := STACK(AX)+3 


TAY 


; (* (Y) := (A) *) 


PLA 


; PULL (X) 


TAX 


! (S) := (S) +1 


PLA 


PLA 


; fm c*| 


PLP 


! m.t m 


RTS 


; END 



********************************************************** 

* EXCHXY - EXCHANGE SUBROUTINE * 

* EXCHANGES REGISTER X WITH REGISTER Y * 
********************************************************** 



mmm p«s 

PHA 
TXA 
PHA 

raft 

TAX 
PLA 
TAX 
PLA 
PIP 
RTS 



BEGIN 

PUSH (P) 
PUSH (A) 
PUSH (Y) 

PULL 



BSD 



********************************************************** 

* EXCHAX - EXCHANGE SUBROUTINE * 

* EXCHANGES ACCUMULATOR WITH REGISTER X * 
********************************************************** 



EXCHAX PHP 
PHA 
TXA 
PHA 
TSX 



UaAX STACK +02 

TAX 

H.A 



BEGIN 

PUSH (P) 
PUSH (A) 
PUSH (X) 

(X) := (S) 
(X) := STAeK(AX)+2 
(* (X) := (A) *) 
PULL (A) 

PULL (P) 
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F^'ORTM Olvl THE CTLJIMIOF? 



For some time 
the JUNIOR at 
Important I/O 
%& Jppk them 



I have a +ig-FORTH and a 79 STANDARD FORTH for 
my disposal. I felt the need to have some 
addresses accessible in FORTH without having 
up in the books every time. And behold the 



f^f »fl«t1; iness of FORTH: all addresses can get familiar names 
from previous publications about the JUNIOR. A name like 
*B4I is much easier to remember then the hex-addresses 
4>1A7A and «1A7B. (I had to peep at the book for those two). 
Changing the NMI vector is, after loading screen 1 and 2, 
«i piece of cake. Let's assume we want to , .pqinti -,tb9 . NMI 
vector at address $2000, then typing the 'fofibwirtf"' FORTH 
statements: HEX 2000 NMI ! will do the job 
For those who are not familiar 
I tell FORTH that every number 
notation. The exclamation mark 
(like POKE in BASIC). Note: 
stored at address *1A7A, 



with forth: with the word HEX 
typed in is in hexadecimal 
is in FORTH a store operation 
FOJ^TH takes care of the 4^10 being 
ftftd the 9^ at address °'CiA7B. 



To have a known delay at my disposal I made the wqrd MS 
(mi 1 i second ) . How to use this word Citn be found in screen 3. 
How it works: first the operand for MS (givllf ihe delay in 
miliseconds) is checked because when it's equal to zero, we 
don't have to wait at all. If it's not zero then as many times 
as is neccessary the following operations are carried out: 
load timer CNTB (systeroc lock : 8) with *7C ( = 124) aBdofil?«ck if the 
timerflag (bit 7) is set (timerflag greater thaf»^«7Pf: In FORTH 
it is possible to handle numbers in^ecimal (after typlttf SECZBAL) 
or HexaHeciroal (after typing ^WtlC?*' Because I haw t»»«fi W3rl;trfg 
on an assembler, it would be handly ^fi , have binary In- and 
output as inell. So I made the word mnmmi |n this Mord imm can 



in FORTH to choose a neiiii baseniitabvr: si 
n the systemvar iabls 8ASE < basvnuMlMirs 
and 'yoiliSL'f ffOfTII l« work i na iB..f#^i 
quintii' (Httlib«M with base sT?^l»6P pe 
conversions like hexadecimal^ 
this i 5 of course somethifi§ € 




see how easy it 1 
store the new base in 
2 to 70 are possible) 
octal, binary or even 
having to deal with a lot of 
decimal or decimal <-> binary, 

could only dream of. Screen 4 is just for fun, I made a small 
circuit (see -fiqure) and connected it with PB7 of the 6522 from 
the JUNIOR. With the help of, tht»^ little ciruit I can 
generate real "hi + i" sound -' ''-^i^^ 

with the JUNIOR. The FORTH 
word TONE works as follows: 
first load the auxilary con- 
trol reqister of the 6522 with 
$C0 (%li00 0000). This enables 
the free-running mode of timer 
i and connects its output with 
PB7. The argument of TONE is 
placed in the timerlatch. The 
timer will be loaded with this 
number every time it passes zero. 

Last but not least the timer Itself is loadei^^SiltH the 
argument and off it goes! The m3r4 TOFF difables the jtOB# 
by writing $00 in the auxi lary ' t»6ntf>M'Vegl4t#f l»6ft+stopplng 
the timer. BELL shows how both words can be used, it generates 
4 tone for about one second. To change the frequency alter the 
argument of TONE, here 300. To change the l^nght alter the 
argument of MS, in the example 1000. 

written -by: Frans Bakx 

Hui ss%»d*n 11 11 
- 66tS is WlJch^ 

: 0pi#*| - 16389 




SCR 
0 
1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



« 1 

( VIA 

FORTH 

1800 

1801 

1802 

1803 

1804 

1806 

1808 

180A 

180B 

180C 

180D 

180E 

180F 

— > 



6522 re 
DEFINIT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 



gi sters 
IONS HEX 
DRB 
DRA 
DDRB 
DDRA 
TIC 
TIL 
T2C 
SR 
ACR 
PCR 
IFR 
lER 
DRA2 



JUNIOR 

( DATA REGISTER B 

( DATA REGISTER A 

( DATA DIRECTION REG B 

( DATA DIRECTION REG A 



( TIMER 1 
( TIMER 1 
( TIMER 2 



LOW 

LATCH LOW 
LOW 



( SHIFT REGISTER 

( AUXILARY CONTROL REG 

( PERIPHERAL CONTROL REG 

( INTERRUPT FLAG REGISTER 

( INTERRUPT ENABLE REGISTER 

( DATA REG A NO HANDSHAKE 



5 □ S 



SCR 
0 
1 

5 
6 
7 
8 
9 
li3 
H 
12 
13 
14 
15 

SCR 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
19 



«t 2 

< PIA 6532 re 
1AD5 CONSTANT 
1AF4 CONSTANT 
1AF5 CONSTANT 
1AF6 CONSTANT 
1AF7 CONSTANT 
lAFC CONSTANT 
lAFD CONSTANT 
lAFE CONSTANT 
lAFF COMSTANT 



gisters 
RDFLAG 
CNTA 
CNTB 
CNTC 
CNTD 
CNTE 
CNTF 
CNT6 
CNTH 



( FLAG REGlil^ 

( CLKIT 

( CLK8T 

( CLK64T 

( CLKIKT 

( CLKIT 

( CLK8T 

( CLK64T 

f fet.KlKT 



JUNIOR 

DISABLE IRQ 
DISABLE IRQ 
DISABLE IRQ 
DISABLE IRQ 
ENABLE 
ENABLE 
ENABLE 



IRQ 
IRQ 
IRQ 
IRS 



( interrupt vector 
1A7A CONSTANT NMI 
1A7C CONSTANT BRKT 
1A7E CONSTANT IRQ 
--> 



5 on 



page $1A 

( NMI VECTOR LOW 

( BREAK VECTOR LOW 

( IRQ VECTOR LOW 



« 3 

( ut i 1 i t i es 
( MS 



n delay +or aprroximately n milliseconds ) 



( 79-STANDARD REFE«S^€£ UQRB 

■ MS ^ r 



J lid 



-Dtp If 0 DO 7C CMJ|. i 

■ . BEGIN . ...^ , . 

UNTIL _ , , 

LOOP . „ , 

THEN ; , > > , ; 



BINARY 



t . v .-r • y ,r>. i , : j 3 



— > 



2 BASE 



SCR 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 

iS:. 

SCR 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
OK 



1A82 CONSTANT DRB2 

1A83 CONSTANT DDRB2 

: PEEP DDRB2 CS 80 OR DDRB2 C! 

0 DO DRB2 Oi 80 XOR DRB2 C! 

LOOP 

DDRB2 C@ 7t AMD D0RB2 C! 

! 



«t 4 

( sound Mith 6522 VIA and speaker connected with PB7 ) 

( TONE n enable «E«iiiii,,;» . i« #f#s|uency ) 

: TONE 

C0 ACR C! ( free-running mode timer 1 

DUP TIL ! TIC ! ; ( load timerlatch and timer 

( TOFF disable sound 

: TOFF 0 ACR ! ; ( disable free-running mode 

DECIMAL - , 

( BELL short beep ) 

( 79-STANDARD REFERENCE WORD SET > 
( frequency can be changed by changing 300, length by ) 
( changing 1000 > 
: BELL 

300 TONE ^ imm. mSiwrn* i/ 99e> 4«4'#:y'%%«i« stop ) 

— TOFF J >•, . ,-1 a^; " i. ' ■' U'"- 

■ 

« 5 , • . 

< PEEP n beep (toggle) speaker ) 

HEX 



( DATA REGISTER B ) 

( DATA DIRECTION REG B ) 

( enable PB7 output ) 

( toggle PB7 output ) 

( n times ) 

( disable PB7 ouipiit } 



( frank bakx 



huissteden 1112 6605 HD Wijchen 
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** ADAFXmCM MINI-HODEH BMJDRATE 1200/75 ** 



Author: A.v.d. Hombergh, The Netherlands 

Eversince I have had a modem/ I wanted to work according 
to the V21 protocol (transmission speed 300 Bd full du- 
plex) and the V23 protocol. The latter works with a 
transmission speed on 1200/75 Bd, the so-called split 
baudrate. 

Since I have built the Mini Modem from Elektor, the option 

V23 was not possible without further preface. 

For this modem has no interspeeder i.e. the Modem provides 

for the translation of 1200 Bd to 75 Bd and the other way 
round from 75 Bd to 1200 Bd. 

Yet in order to be able to work according tb both options 
I have intcodu(»d a hardware adaptation in the modem. ThiK: 
systeim whereby ttiis oodem jointly works is the BCeS fronr- 
Blektot. I have alao adapted the conniunication program in 
order to be able to work with both protocols. 

Hardware adaptation Mini-tto^ as dtgcrjUwd in ^ ' Getjaan 
EleKtot: Special E C-i T ' — ^ ^ 

1. Connect by means of wiring draw on IC 1 (AM7910) 
pin 10 with 28 = TD. ..BTD 

pin 13 with 14 = CTS..BCTS 
pin 25 with 27 = CD... BCD 
pin 26 with 15 - R0...BRO 

2. Ncvan| m • h«L{» petot « dlstt^r Hos IC 4040 and use, if 
p^ible, a fourdecka switch with 4 settings/positions 
<» else a separate switch with 3 or 4 settings/posi- 
tions. The clock inlet of the divider (pin 10) is 
joined with the outlet of the oscilator of the modem 
(R24). This clock 2.4576 Mc is divided by the 4040 to a 
frequency which is 16 times higher than the receiving 
Data frequency, by 1200 Bd this is 19200 Hz, by 300 at 
4800 Hz and by 75 Bd this frequency is 1200 Hz. ' 
The switch with 3 or 4 settings is joined with: 

pin 1 with 09 from 4040 frequency outlet 4800 Hz 
pin 2 with 09 from 4040 frequency outlet 4800 Hz 
pin 3 with 07 from 4040 frequency outlet 19200 Hz 
pin 4 with Oil from 4040 frequency outlet 1200 Hz 
The middle contact of the switch is connected with pin 
17 of the D-25 connector V24 (RS 232) interface. 

The Mini Modem is now able to be used with VIDITEL (VIDI- 
SISS,) SOS, axanple. Nevertheless it cannot be used without 
reservation with some modems such as FIDO whereby nodes 
are used. 

The CCITT dictates that with data cottmunication via the 
connected telephone-network, a frequency of 2100 Hz is 
send for the start of data conniunication. This is in the 
telephone systems for the disconnection of echo suppres- 
sors. This is employed in international coimunications. 
Therefore the AM7910 sends this tone as first frequency, 
except in the mode 300 Bd originate. The length of the 
tone ia 3 seconds. There are Fie&'«edlm9. epaeMffl*. incor- 



rectly on this 2100 Rz, She il«eiUt 6f is t^n^ cir- 
cuiting of the connection, A SO-called HUlti Hodem cecog^ 
nizes by the carrier vith i4ii^ sort ot nadem it is goirig 
to communicate. 

3£>' this mode, in answering, recognizes a carrier of 1080 
fiiz then the communication takes place according to the V21 
protocol, this 300 Bd full duplex. By a recognition of 390 
Hz, then the protocol is V23 split baudrate. The reception 
speed for the Multi Modem is then 75 Bd and the transmis- 
sion speed 1200 Bd. 

My experience is that some Multi Modems used by FIDO nodes 
react incorrectly at the frequency of 2100 Hz. 
In order to get round the above described problem I have 
introduced the following adaptation in the Mini Modem. 
Switch the AM7910 "ON LINE" before the telephone connec- 
tion has been made. Therefor pin 1 of the AM7910 is made 
low but the line relay is not confirmed. For the buildup 

HardWiljil igN^tation Mini Modem by amtwr bSwi ^-Mt fe,. 

=^,f?-f -r-r^ -ff**- ~ 

la Osa fcHT ^ a double switch. 

Saratch pin 13 from IC 6 loose from the connectiCTl tp 
iu 1. ~* 
Connect pin 13 with a resistor of 2K2 to + 5 Volts and 
connect pin 13 from IC G with Sl(b). 
The other side of Sl(b) is connected with IC 1 pin 1. 
b Scratch from IC 6 the pins I ■fmO''^' *iaa« «iaStl», 

Connect pin 1 from IC 6 vim iiidii«.:esats«aei'^^sA S2-b' 
or with MC-1 from IC 1. ■• ■ ■ 

Connect pin 2 from IC 6 with R 1^9 Htl^ «r'i»AWI pin 6 
from FFl (IC 8). - ■ . - - 

Hardware adaptation EC® CPB board. 

. . . ^mm^^ pUt 5 teem (6551) with pin 9 from PL 

7/ and bring pin 9 from PL 7 to the D-25 connector pin 
17. 

The above mentioned modem works together with the coimuni- 

cation progcan that is available for the EC65(K) . 

I have aliie made some software adaptations in order to be 

able to work with the V21 as well as the V23 split-t^ud- 

rate. 

1. Soot your e(mi««^£at ion program ifr 'f@at t^ftiNMi Md 
choose option E trem the main menu. 

Load track 13 to memory location $A274 with CA 
A274=13,l. 

Jump to the monitor and change the following data: 

Value •■ --""5^me 
ftddr: Old New Addr: Old New 



$A5FC $33 $20 $A60D $32 $31 

$A5FD $30 $37 $A60E $34 $32 

$A5FE $30 $35 $A62A $16 $02 

$A602 $36 $33 $A633 $17 $06 

5A607 $31 S20 SA63C $18 $07 

$A608 $32 $36 $A64S $IA $08 
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IDlk. ^090 trade 05 to memory location 
Mi^Mt Und change the following data. 



$AAOO with CA 



$AF70 $16 $06 SB124 531 $20 .• . . 
$B118 $30 $20 $B12S $32 $36 
$8119 $30 $37 $B12B $32 $31 
$B11A $30 $35 $B12C $34 $32 
$B11E $36 $33 

mv« 'tmm OS agatn with ^ OSjli^SOff/B. ' 

The software is also adapted. By booting your communi- 
cation program the ACIA is now progranmed on the externed 
receive clock. The transmission speed of the originate 
modem is displayed in the status bar in the right hand 
csscBer of the screen. 

for example, VIDITEL (VIEOHTEX) or by FIDO Multi Modem 
this is 75 baud. The default values remain the same by 
formerly up-booting (300 Bd 8 bits disabled parity 1 stop 
bit) . 

By FIDO according to V23 you therefore only change the 
transmission-speed 75 Bd. 

By VIDITEL (in Holland) the ACIA parameters are 75 Bd, 7 

data bits even parity 1 stop bit. 

By the menu option X (exchange ACIA mode) the transmission 

speed 2400 Bd is dropped because another roodein has to be 

.adj^ted anyway. . j;.^ i- ... i»l . >• .. 

By the transmission spwa 4SCICf M>' ' mSCH W m» tSWO StS 

the ACIA remains programmed on inten»l cXo^. 

In the V21 mode orlginata' S«/iti^ S2 i» aCt' to eeBitien 1 

300 Bd full duplex. 

In the V21 mode originate Switch S2 is set to position 2 
300 Bd full duplex. 

In the V23 mode originate Switch 52 is set to position 3 
75 Bd Trans. 1200 Bd Rec. 

In the V23 mode originate Switch S2 is set to position 4 
1200 Bd Trans. 75 Bd Rec. 

The advantage of this modification is access to more data- 
banks and the data transmission is quicker, for example by 
downloading, and this makes a difference in the telephone 
costs. Naturally, the modification of the Mini Modem can 
also put into use other modems which don't make use of an 
interspeeder, provided that the IC AM7910 or 7911 is 
employed. ,;.,i;,->^ i. 

For the conralete wiring diagram of the Mini-^lodeili review 
the German Elektor Sonderheft 4. 



*************************** 

** NEC PINWRITER PI DI»1P ** 
***4»*********************** 

Frank Vergoossen, Holland. 

Dit prograiima is voor de ACORN ATOM, om grafische mode 4 
pla»tjB8 %» .printen met de NEC Pinwriter PI. Om het 
printen te starten CTRL-SHIFT indruJcken. Na een BREAK moet 
het programma opnieuw aangeroepen worden met LINK 
(beginadres) . Dit programma kan alleen kleine plaatjes 
uitprinten, terwijl hier maar 8 van de 16 beschikbare 
printernaalden gebruikt worden, zodat het printen no wel 
sneller zou kunnen. Bit 7 van de printerconnector moet 
verbonden worden met bit 3 van de C-poort van de 8255, 
volgens de modificatie beschreven in Acorn Nieuws bundel 
1982, biz. 17. Voor verbeteringen aan dit prograitma houd 
ik me aanbevolen. 

lOREM NEC PINWRITER PI DUMP 

20REM DOOR FRANK VERGOOSSEN 

30J=30 ; DIMLLJ ; F . I=0TOJ ; LLI=»FFFF ; N. ; @=0 

40P.$12"NEC PINWRITER Pi GRAPHICS DOJIP" " 

50IN."GEEF STARTADRES "Z 

60P . $21 ; F . I=1T02 ; P=Z 

70[ 

80 : LLOMNVERTEREN 

9OLDA@0;STA#23F 
100JSRJFD1A\PIEPTOON 
110JSR#F7D1VPRINT TEKST 
120]$P«"INVERTER£N <J/N) ^tPtimt..Psl 
130NOP;JSR«FFE6\LEES laEXS " ' 
140VVERGEL1JK MET "J" 
150CMPe«4A;BEQLL2 
16CVNIET INVERTEREN 
170DEC#23F 

180:LL2JSR#FFEDSCR/LP 
1 90 \ INTERRUPT VECTOR 
20OLDA@LL3%256 ; STAt 204 
210LDA?LL3/256 ; STA#205 
220 \ INTERRUPT AAN 
230CLI 

240LDA@»C0 ; STAIB80B ; STAIBSOE 
250\TIMER 1 

260LDA@I80 ; STAtB804 ; STAIB805 
270JMP»C55B\TERUG NAAR BASIC 
2B0:LL3\X EN Y OP STAOC 
290TXA ; PHA ; TYA : PHA 



300\CTRL-SHIFT 

310LDA# BOOl ; CMP@# 3F ; BEQLL15 

320JMPLL2B\TERUG 

330:LL15\MODE 4 

340LDA@32:STAi56 

350\ PRINTER AAN • 

360LDAe2;JSR#FEPB 

370VESC."T08" 

380LDA@tlB:JSRLL30 

390LDA@ » 54 ; JSRLL30 

400LDAe#30;JSRLL30 • 

410LDA@#38;JSRLL30 

420JSRLL29;JSRLL29X2*CR 

430\ADRES 18000 

440LDA@»80;STA»53 

450LDY@0;STY#52 

460 :LL16\ ESC. "10008" 

470LDA@#1B;JSRLL30 

480LDA@II49;JSRLL30 

490LDA@»30;JSRLL30 

500JSRLL30 : JSRLL30 

510LDA@(f38;JSRLL30 

52C\X EN Y OP 0 

530LDY@0;LDX@7 

540: LL19\ LEES 8 BYTES 

550LDA ( II 52 ) , Y ; STAD 5A , X 

560\VOLGENDE BIT 

570TYA ; CLC ; ADC@32 ; TAY 

580DEX;BPLa/ijf'<-- ' 

590LDYe8 ' •• ' - 

600:LL20LDX@7 

610:LL21\SCHUIF BIT 

620ASLK5A,X 

630\SCHUIF CARRY 

640ROR#57 

650VTEST 8 BITS 

660DEX;BPLLL21 

670\EVT. INVERTEREN 

680LDA#57;EOR#23F;STA#S7 

690\PRINTERBIT 7="0" 

700LDA@7;STAiB002 

710\TEST BIT 7 

720BIT#57;BPLLL22 

730\PRINTERBIT 7="1" 

740LDA@15:STAItB002 

750:LL22\NAAR PRINTER 

760LDAf57lJ8myC^ 

770LDAe7;StAIBb(S2 

780LDA@0;JSRLL30 

790\TEST 8 BYTES 

80ODEY;BNELL20 

810\VERH00G ADRES 

820INC#52;LDAI52 

830\TEST REGELEINDE 

840CMP#56;BNELL16 

850LDX?7 

860:LL23\VOLGENDE REGEL 

870LDA » 52 ; CLC ; ADC@32 

880STA«52;BCCLL24 

890\VERHOOG MSB 

900INC»53;LDAIt53 

910\TEST GEHE0GEN(21ENS 

920CMP@»98:BEQLL26 

930:LL24 

940DEX;BNELL23 

950JSRLL29\CR 

960\ ADRES V0U3ENt« mm 

970LDA#52;CLC;ADet32?SSftf5fi ' 

980JMPLL16 

SSi©kLL26VPIEPT00N+CR 
ICOC&gRIFDlA ; JSRLL29 
1010\ PRINTER OIT 
1020LDA@3:JSR#FEFB 
1030:LL28\HERSTART TIMER 
1040LDA@ »80 ; STAtB804;S^a^ 
1050\Y, X EN A VAN STJSglC. 
1060PLA ; TAY ; PLA ;TAX; I>t,A 
1070RTI\TERUG 
1080:LL29\CR 
1090LDA@ 1 3 ; JMPLL30 
1100:LL30\NAAR PRINTER 
1110PHA;JMP|FF08 
1120]N. ;P.$6"O0DE VAS WSl 
X130LI.Z;E. 
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m 44 MLIST 
SCR # 36 

( MAflNLANOER. 1 VAN 9. CASES. 
DECIMAL ( CASES KOMT UIT FORTH OK) 



0 
1 

2 

i 

4 
5 
& 
f 
8 
9 

11 

12 
13 
14 
15 



) ■ 

ROT DUP ROT SWAP > IF O ELSE 1 THEH Q' ' ■ --^ 
ROT ROT SWAP > IF 0 ELSE 1 THEN : 
BEGIN-CASES CSP e !CSP COMPILE DUP 0 4 : IMMEDIATE 
CASE 4 ?PAIRS COMPILE OVER COMPILE = COMPILE OBRflNCH 

HERE 0 , COMPILE DROP 5 : IMMEDIATE 
RANGE-CASE 4 ?PfiIRS COMPILE RANGE COMPILE = COMPILE 

OBRANCH HERE 0.5: IMMEDIATE 
ELSE-CASE 4 ?PAIRS 0.5; IMMEDIATE 
flffl)-CASE 5 ?PflIRS COMPILE BRANCH HERE 0 .'-^^^ 2 

[COMPILE] ENDIF 4 : IMMEDIATE " ' ' 
END-CASES 4 ?PflIRS BEGIN SP@ CSP @ = 0= WHILE 2 

[COMPILE] ENDIF REPEAT CSP ! COMPILE DROP : IMMEDIATE 
KLAAR . " SCHERM GECOMPILEERD" CR : IMMEDIATE 
WIS EMIT 2 WAIT : KLAAR — > 



SCR 
0 
1 

2 
3 
4 
5 
& 
7 
B 
9 
10 
11 
12 
13 
14 
15 



# 37 

< MAANLANDER. 2 VAN 9 ) 
VARIABLE VOORUIT VARIABLE ACHTERUIT 
VARIABLE STIJ6EN VARIABLE MOE VARIABC§ 
VARIABLE SNELHEID VARIABLE BRAND VARIABLE 
VARIABLE HOR VARIABLE VERT VARIABLE GANG 
i BE6INWAAR0EN 1 MOE ! 9 HOOGTE ! 0 
4 VERT 
BRAND ! 2 
BRAND ! 3 
BRAND i 3 
10 EMIT LOOP 
9 EMIT LOOP : 
DUP ROT > SWAP ROT < OR NOT 




99 
80 
70 
DO 
DO 
ROT 



BE6IN1 
BEGIN2 
BEGIN3 
DAAL 0 
TABU 0 
TUSSEN 
REGEL 10 EMIT 13 EMIT 
CURS 28 WIS 13 DAAL 24 
IE 73 EMIT • KLftftR 



3 HOR 
ZWAAR 
ZWAAR 
ZWAAR 



3 GANG 
3 GANG 



TABU : 



REMMEM 



n.i 



..V \\y- 



SCR 
0 
1 



4 
5 
& 
7 
8 
9 
10 
11 
12 
13 
14 
15 



( MAANLANDER. 3 VAN 9 ) 

: STREEP 0 DO 45 EMIT LOOP : 

: ISSEN 0 DO 61 EMIT LOOP : 

: LANDER 28 WIS VERT § DAAL HOR @ TABU . " -0-" : 

: EXLAN 28 WIS VERT g DAAL HOR e TABU 3 SPACES ■ 

: EIND CURS REGEL . " U BENT NEERGESTORT ! ! ! ! " ABORT : 

: ?HOOG HOOGTE @ 0< IF EIND ELSE HOOGTE @ 9 > IF 

. " U BENT TE HOOG I ! DE MAANLANDER EXPLODEERT ! ! " 

ABORT THEN THEN : 

: ?HOR HOR e 0( IF . " U RAAKT ACHTER ! ! " ELSE HOR @ 50 
> IF . " U BENT TE VER WEG GEGAAN I ! " ABORT THEN THEN • 
! BOTS . " FATALE BOTSING MET HET MOEDERSCHIP ! " ABORT • 
: PAR 28 WIS 2 DAAL 7 TABU HOOGTE ? 14 TABU 

SNELHEID ? 15 TABU BRAND ? : 
» EXPAR 28 WIS 2 DAAL 6 TABU 2 SPACES 13 TABU A-liPlSQES 
12 TABU 7 SPACES PAR : KLAAR — > ^ 



SCR # 39 

0 ( MAANLANDER. 4 VAN 9 ) 

1 ! TESTS SNELHEID e DUP 0< 0= OR IF J 

2 . " DE LANDING IS GESLAAGD ! " ELSE EIND THEN • 
5 t ■nST4 HOR e MOE e 1 + DUP 2 - SWAP TUSSEN 

4 IF BOTS ELSE HOR e MOE @ 3 + DUP 2 + 

5 TUSSEN IF BOTS THEN THEN : v , 

6 : TEST3 HOR g 23 = IF TESTS THEN : 

7 : TEST2 VERT e 13 = IF TEST3 THEN : 

B : BERG REGEL . " U BENT TEGEN DE BERG GEVL06EN ! " ABORT • 

9 : ?THUIS SNELHEID © -2 = IF . " U BENT THUIS. PROFICIAT !"' 

10 ABORT ELSE TEST4 THEN : 

11 ! FUEL BRAND e VOORUIT e - ACHTERUIT @ - REMI«EN § - 

12 STIJ6EN @ - DUP 0< IF CURS REGEL 

13 . " DE BRANDSTOF IS DP ! ! ! " ABORT ELSE 

14 BRAND ! THEN : 



15 KLAAR 
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SCR # 40 

0 ( MflANLftNDER. 5 VAN 9 ) 

1 I f^KEN REBEL . " MOMENT JE flUB" CURS 

2 EXLON FUEL SNELHEID S ZWfifiR Q + STIJGEN f., 

3 - REMMEN e - SNELHEID ! HOR & VOORUIT -i 

4 @ + HOR ! HOR @ ftCHTERUIT @ - HOR ! 

5 VERT @ SNELHEID & + 1 + VERT ! ; 




IS KLflAR ~> 



SCR #41 

0 ( MflftNLftNDER. 6 VAN 9 ) 

1 s BEELD CLS 2 WAIT IE 4 SPACES HGOGTE" 4 SPACES IE 2 

2 SPACES . " VALSNELHEID" 2 SPACES IE 2 SPACES .f.. 

3 ." BRANDSTOF-RESERVE" SPACE IE CR IE 14 STREEP IE 15 STREEP 

4 IE 20 STREEP IE CR IE 14 SPACES IE 15 SPACES IE 20 SPftClS 

5 IE CR IE U ISSEN IE 15 ISSEN IE 20 ISSEN IE CR IE 51 . , 

6 SPACES IE CR IE 51 SPACES CR IE 3 SPACES . " /\" M 

7 SPACES IE CR IE 2 SPACES ." /" 2 SPACES ." \-\" 28 

B SPACES ." A* 13 SPACES IE CR IE SPACE ." /" 6 SPACES ." \" 

9 26 SPACES . " / \" 12 SPACES IE CR IE . " /" 9 SPACES . " \" 

1© m SPACES ." /" 6 SPACES ." \" 10 SPACES IE CR IE 12 SPACES 

11 ." \" la ^CES ." /" 10 SPACES ." \" 8 SPACES IE CR IE 14 

12 SPACES .« \ \" 10 SPACES . " /" 14 SPACES ." \" 6 SPACES 

13 IE CR IE 19 SPACES ." \" 7 SPACES . " /" 18 SPACES ." \" „ 

14 A SPACES IE CR IE 20 STREEP ." \" 2 STREEP ." 2 STREEP 

15 . " /" 20 STREEP ." \" 3 STREEP IE CR ; KLAAR — > 



SCR #42 

0 ( KWANLANDER. 7 VAN 9 ) . -i-: ' 

1 1 TESTl VERT 6 3- BEGIN-CASES 1 CASE MOE § 2 + tm t * ' 

2 IF ?THUIS ELSE TEST4 THEN END-CASE 

3 3 CASE HOR 6 2 5 TUSSEN IF BERS THEN END-CASE : ,. < ' j> 

4 4 CASE HOR 6 1 6 TUSSEN IF BERB ELSE HOR 6 35 38 r •. . 

5 TUSSEN IF BERB THEN THEN END-CASE 5 CASE ^ ^ u»;. 

6 HOR 6 0 7 TUSSEN IF BERG ELSE HOR 6 34 39 TUSSEN • Ti" 

7 IF BERG THEN THEN END-CASE 6 CASE HOR 6 0 11 TUSSEN IF 

8 BERB ELSE HOR 6 32 41 TUSSEN IF BERG THEN THEN END-CASE ^,_,h 

9 7 CASE HOR 6 0 13 TUSSEN IF BERG ELSE HOR 6 30 43 TUSSEN IF 

10 BERG THEN THEN END-CASE 8 CASE HOR 6 0 19 TUSSEN IF BERB j .. 

11 ELSE HOR 6 28 45 TUSSEN IF BERG THEN THEN END-CASE 9 CASE >- 
t2 MOi t 0 20 TUSSEN IF BERG ELSE HOR 6 26 47 TUSSEN IF BERB 

13 Wm THEN END-CASE 10 CASE HOR 6 0 21 TUSSEN IF BERB 

14 mjf Jii8 t 2S Mv^PPi IF mm then THEH SiDi'^QISE^' . 
iS-'EflEF^i^i mJm '--> ■ ■ r 



0 < MAANLANDER. 8 VAN t > " 

1 : MOED 28 WIS 4 DAAL 9 EMIT MOE 6 0 DO 32 EMIT LOOP 

2 " < > " " 

3 i TEST MOE 6 50 > IF 9 DAAL REBEL . " TE LAAT! ! ! " ABORT THEN • 

4 : UITVOER BEELD BEGIN MOED LANDER TEST EXPAR CURS REBEL ?HOOG 

5 ?HOR TEST2 TESTl VOOS iEBlL A04TES REBEL REM REBEL STUB 

6 REKEN AGAIN : 

7 : KIES 12 WIS 4 DAAL 15 SPACES . " KIES M0EILIJKHEIDS-6RAAD" 

8 CR CR CR 15 SPACES . " BEGINNER! TOETS IN 1. " CR 15 

9 SPACES . " GEVORDERD: TOiTg IN 2. " CR 15 SPACES 

10 . " ERVAREN PILOOT: TOETl IN 3. " CR KEY DUP DUP 49 = IF 

11 BEG INI UITVOER ELSE 50 % BEGIN2 UITVOER ELSE 51 - 

12 IF BEGIN3 UITVOER THEN THEN THEN : 

13 : TEKST 12 WIS 20 SPACES . " MAANLANDER" CR 20 SPACES 10 

14 STREEP CR CR . " HET IS DE BEDOELING OM MET DE KLEINE" 

15 . " MttfMMLANDER - VANUIT bEJ MCKDERSCHIP - EEN" CR KLAAR — > 
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PEg— J n I g JKJEMtvlER * 



SCR 
0 
1 
2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
IS 



# 44 

( MftflNLANDER. 9 VON 9 ) 

." ZftCHTE LfiNDINB TE MOKEN OP HET KNIPPERENDE " CR 

." " TEKENTJE. DftPRNft MOET WEER WORDEN OPSESTEGEN" CR 

." NftftR HET MOEDERSCHIP. DAT ZICH INMIDDELS VERPLflflTST" CR 

." HEEFT. DIT MOET GEBEUREN VOORDflT HET MOEDERSCHIP" CR 

." BUITEN BEELD KOMT EN REKENING HOUDEND MET ZWflflRTEKRflCHT" CR 

." EN DE BESCHIKBftRE BRflNDSTOF. LET OOK OP DE BERGEN !! " CR 

CR . " DURFT U DE REIS AftN ? " CR 
. " ZOJfl, DRUK DAN OP DE TOETS ' J' " CR 

. " ZONEE, DRUK DAN OP DE TOETS ' N' " 
KEY 74 = IF KIES ELSE ABORT THEN : 
: MAANLANDER BE6INWAARDEN TEKST : 
KLAAR :S 



OK 



**************************************************** 

** REACTIE OP PROBLEQ4 VAN R. BAARSLAG, EDITIE 48 ** 

Door : Coen Boltjes, Nederland. 

De decimale mode van de 6502 atelt de gebcuiker in staat 
mie, Omsiimle g«taU«» ti^ nAeanen. 08 03 wordt dan 11, in 
pJI'mttiM' van OB in de 'normale' hexadecimale mode. 

Set probleero van R. Baarslag uit DE 6502 KENNER nuiimer 48, 
pagina 27, is terug te voeren tot het feit dat de meeste 
programneurs bij het achrijven van routines uitgaan van de 
hexadecimale mode. Een voorbeeld: In de VDU software wordt 
de cursorpositie bepaald door een optelling van de CURRENT 
LINE POINTER, RAMBEG en COLUH. Hierbij wordt er door het 
progranma vanuit gegaan dat deze routines in de hexadeci- 
male mode worden doorlopen, en zijn er in de decimale mode 
problemen te verwachten. Hoe zijn deze op elegante wijze 
op te lessen? maak voor iedere externe subroutine een 
nittOiW «0rputine b«seaanae uit: 

PHP ; Save processor status 

CLD : Hexadecimal mode 

JSR Routine ; External routine 

; Restore (icQceaaor status 

IWS ;■ Exit 

Het voordeel van de Push en Pull operaties in deze routine 
is dat na het doorlopen van de routine de 'DECIMAL FLAG' 
de waarde heef t als voor het a«niR»«$«n van 0a coutinft, 
Hierdoor is de routine ook brul)a»ar in d« httxnaeciaale 
mode. Dit in tegenstelling tot de volgencte routing/ 

CLD ; Hexadecimal mode 

JSR Routine ; External routine 

SED ; Decimal mode 

RTS ; Exit 

die altijd in de decimale mode wordt beSindigd. 

Dit Pushen en Pullen van de processorstatus kan ook worden 
gebruikt in routines die niet mogen worden geinterrura- 
ga«?3, en in 'gewone' en in intecrueCroutines «6raen ftsin- 
geroepen; 



PSP 
SEI 

JSR Routine 

PLP 

RTS 



Save processor status 
No interrupts 
External routine 
Restore processor status 
Exit 



********************************************** 

** O0MM0IX3RE 64 I/O PORT VISIBLE ON tCHITOR ** 
*»**»*»i****»*********t***********************n 



By : 
Teansl.s 



Seratd van Roekel, The Netherlands 
Bart van Pelt 



% VAWS tte* following programroe it's possible to watch 
aw 1/a. 3* id«ew3 the OOTPOT DATA REGISTER B, which can be 
affected by address 56577, and the DATA DIRECTION B, which 
13 to be altered by address S6579. 



POKE56579,lll 
POKE56577,77 

POKE56579,73 
POKE56577,117 



POKE56579,250 
POKE56577,33 




: 76543210 
:EAEEAEEA 
SUIIOIII 

: 76543210 
:AAAAAEAE 
rOOlOOlOl 



ENTRY 
OOTPOT 



100 PORI= 491^^2 TO 49264 

110 READA:POKEI,A:NEXT 

120 SYS 49152 

130 DATA 120,169,013,141,020 
140 DATA 003,169,192,141,021 
150 DATA 003,088,096,169,058 
160 DATA 141,031,004,141,071 
170 DATA 004,141,111,004,169 
180 DATA 031,133,250,169,004 
190 DATA 133,251,160,008,185 
200 DATA 104,192,145,250,136 
210 DATA 208,248,160,008,169 
220 B»km 071,133,250,169,004 
230 ffATA 173,003,221,074,144 
240 DATA 005,162,129,076,063 
250 DATA 192,162,133,072,138 
260 DATA 145,250,104,136,208 
270 DATA 238,160,008,169,111 
280 DATA 133,250,169,004,133 
290 DATA 251,173,001,221,074 
300 DATA 144,005,162,177,076 
310 DATA 094,192,162,176,072 
320 DATA 138,145,250,104,136 
330 DATA 208,238,076,049,234 
340 DATA 055,054,053,052,051 
350 DATA 050i049,048 
360 END 



By altering address 56577 one can decide the in- or output 
to be 0 or 1. By altering address 56579 a port is fixed to 
IM 4lJ- ©r output. 

Beside the programme there are some examples. It is to be 
taken into account , that the decimals behind the comtia, 
are translated into hexadecimal notation by the computer. 
E.g. the figure 97 becomes 61 (hexadecimal) or 0110 0001. 
The I/O data stay at the upper right side of the monitor. 
Next programme shows all possible stages the I/O port can 
assume. 

10 REM DETERMINE 1 OR 0 ON PORT 10 DETERMINE IN- OR OUTPUT 

20 A=0 20 B=0 

30 POKE56577,1k 30 PC«E56579,B 

40 A=A+1 40 B=B+1 

50 IFA=256THENEND 50 IFB=256THENEND 

55 F0RI=1 TO 100:NEXTI 55 F0RI=1 TO 100:NEXTI 

60 GOT030 60 00IK»30 

Hopefully this programne gives you aoine more insight on 
the I/O part of your computer. 



+ Ernst Elderenbosch, Holland. 

Een tip voor DOS65 Basicode gebruikers: De nieuwe Basic 
versie 2.10 staat niet toe dat er een REM statement op een 

regel staat zonder tekst. Deze regels komen nogal eens 

voor in de Basicode progranma 's en kunnen eenvoudig ver- 

vangen worden door regelaimet sen di*bel« punt (of hele» 
maal weggelaten worden). . 



SEND 5K30R i»J#-DEVELOPHJ PROGRAMMES H SSE ESISOBIAL 
FICE, aSE, ^afeAENSSTR. 15, NL-2923 GK iSn#EN/IJ§SEI. . 



OP- 
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5 O 



KENMER 



j.i. 

71 



I" ~ . .1-.. ! --; t- 1 J ; 

#f»«ii-;..f||pTER ROUTINE #»♦## 
' ifflR DP - 510 

DCJOR : flLFONS VAN DE MEUTTER 
MECHELBAAN 43 
B-3150 HEIST 0/D BERG 
BEL6IE 

Printer/outcfi. ooints here instead H# 1334 



xxxl 


48 






PHfl 




save Acc on stack 


xxx2 


2C 


IC 


OF 


BIT 


ONLINE 


is orinter on ? 


xxx5 


10 


18 




BPL 


$xxlF 


zero means OFF — > skio Printer 


xxx7 


2C 


18 


OF 


BIT 


BUSY 




xxOfl 


10 


09 




BPL 


♦xxl5 


zero means Readv — > skio Wait 


xxOC 


20 


3fl 


lA WAIT 


JSR 


DELAY 


300 mSec delav ) aive time to 


xxOF 


20 


3ft 




JSR 


DEL^Y 


£00 fflSec total ) emotv buffer 


xxl2 


IB 






CLC 




xxl3 


90 


ED 




BCC 


$xxx2 


(On-line test) 


xxl5 


BB 






PLfi 




restore bvte to orint 


xxl6 


48 






PHfi 




back on stack for entrv or-Off 


XHil 


BD 


20 


OF 


STfl 


*0F20 


on Darallel-out oort 
(must be in handshaxe mode bv an 
extension of RESTTY or RESET) 


xxlfi 


2C 


IF 


OF 


BIT 


$0F1F 


ACKNOWLEB^ 


XX ID 


30 


FB 




BMI 


$xxlft 


(must be zero (PB-&) ) 






Cont. if 


hardcoDV skiooed. 


U.i-J 


xxlF 


BB 






PLfl 




restore ftccu/adaot stackoointer 


xx20 


8E 


60 


DC 


STX 


TEMP 


buff X 


xx23 


4C 


37 


13 


JMP 


CONT 


at oriainal video-outout 



You can oatch $1334 4C xx xl (BE 60 OC) 

^tttjma^^'i/mrmrintmT routine xx20 60 RTS 



For JUNIOR : 



CONNECTIONS: 



Exchanae BE 60 OC into 8E 60 Ifl 

and create a delav of 300 mSec. elsewhere 

(lA3ft = dedicated to other purposes) 



Used Dort = tyoe 8154 addressed at 0F00-0F24 



OF0i...OFO7 = 



0F08. 

OFIO. 

0F18. 

0F20 

0F21 



. OFOF 
.0F17 
. OFIF 



0F23 
0F24 

im Wide 

Bit 7 Dort 
bit 6 Dort 



bit! 



(0F80-0FFF=RflM) 
Dort A 



read or reset (bv write) 

idem for oort B 

read or set (bv write) bit of oort ft 
idem for oort B ^ 
s= in/out Dort fi 
= in/out Dort B 
" SiPHttion Req. oort A 

= idem oort B 
" Mode Reg. (Write-onlv) 
»#ri # « oifipirt, Mritim a to It, 
B must be oulled doWn (edeiB*-ctetect) for ackn. and sets 
B back hiah. 



t«U« domn iff B of oort B. 



46 



Bit & oort B as wel as bit 7 oort B urav ba twvt«d foi' occurencv of the ackn. 

by the orinter. 

DDR-A must be FF (all out outs) 

DDR-fi must be 40 (PB-6>outout/T«stBfnisut«} 



Bijkomende inlichtinqen 



Teneinde ondubbelzinniae sionalen te kriiaen oo de liinen Busv, Error. On line 
mode, is het a b^o:l^^^t noodzjikejljnk om diode D 43 te overbruooen ( of 
te \rerwlj(teren, en de doergejcraste baan te hsrstellein). 
Je zal, zonder die inqreeo, geen Drobleem hebb^n # Is de jalqg yain de prin- 
ter wordt uitgetrokken. 

Echter, (zdndet* fngfeeb) als ]>flV laaa gaat. zal die liin via de oull-uo weer- 
standen ook od de andere liinen invloed hebben. Zo zal de "1" oo de strtiKi 
doordringen tot on de "selected" liin, de software aeeft een bvte. maar zal 
vruchteloos wachten oo de acknowledae (orinter staat immers af). 
Kortom, de oroblemen ontstaan door HET ZUEVEN van de inaanoen + uitgangenffJ als 
de printer niet onder soannino is. 

Waar vind je nu die diode ?? 

Er staan 2 weerstand-array's oo de orint,* vlak a,chter de centronics-connector. 
I ilM) iwicie array' s Hi^binm eeti diotie van oiti l naar •»•£$ Volt. Je maa ze beide 

Nog mm klifine onNlbbeli jkheid iis, dMt het softwarimatio uitschakelen door 
CHR*(19) of door DC-3 code, niet zichtbaar is. De handshaJie «ierk* omfm^J 
alleen, er wordt niets georint. Ik heb dit ooqelost door een huloorint toe 
te voegen, al moet ik zeggen dat dit een tekort is wat ik de oroducent aan- 
wrijf. De ON-LINE (SELECTED) uitaanq is immers de uitgana van een ooort 
(IC-10 ofte D-7800 microorocessor) . zodat het orobleem via de software en 
timers van dit IC oogelost had moeten ziin (het lamoie wordt trouwens uit 
een andere 14 in va|i dit IC gescha^ce}^) ^ I i 

Nu werkt het^als volgt s ' 

Bij aanschakelen van de orinter aaat ON-LINE lamoie aan. Bi i druk oo de toets 
ON-LINE gaat dit uit, en is ook het siqnaal SELECTED laaa (oriaineel is se- 
lected altijd HODS als de soannino oostaat ! ! Dit is orincioefout nr. 2 ). 
Door dat laag worden zal de software het deel Hardcopy van DUTCH oatch over- 
slaan (nogmaals drukken schakelt teruo aan). 

Indien een code 13 Hex of 19 Dec binnenkomt. dan oaat het lamoie ON-LINE 
kniooeren. Je weet dan dat alles wat je haar de printer etmrt. t<V*WOeerd 
wordt, behalve code 11 Hex of 17 Dec waariwe je terua binnenhaalt. Het 
laaOje gaat terug continue oolichten. 

De schakelinq nabouwen gaat orobleemloos. Om ze in te bouwen heb je wel 
eirHBtens het schema nodiq. De diodes overbruooen kun je zonder schema. 
Hierbij de schakeling om software ON/OFF te detecteren en te sxqnaleren. 
Tevens een schets over de diode-overbrugging. 
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£I?E 5 D ^ KetvitvlER 




ICS ^:fqLS 

on inpoct" 

kil- 



HO 



4S 




l^-aASf ^lu.;^ CMi^ pin 5 



pin >fe 
ICS 



Am de tekentafel: 
Fridus Jonkaan 
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IN 6 SI^'A 
Cng-c Bzge^ ) 

451/ 



P 
A 
T 
A 



r/Q -BAM 



A0 
RAM-WR 
RA M-g.D 
Ci« - 
C$1 ■ 



3 

10 

II 
fi 
1? 
iM 
IS 

21 



If 



2* 



Ik 

'? 
i8 

'3 

2( 
22 
i3 

Z5 

I 

z 
1 



?> = OUTPUT 
« r I WPMT 



PA? 



-WTO (n.c.) 



In ox-tiNE ? 



3 NOT U4eD 



iP eu5Y 



S.I6NAI- 6ND. 



20 WAY 
FLAT. Rl 660^^1 



'3 
i8 

it 
IT 

a 

12 



? 
b 

3 
^ 

I 



STAR DPSIO 

CONMECroR 



-^9 

-> B 

^ 1 
z 



D 
A 

r 

A 



bH0 



— > I STROBE ^ 

-^31 INPUT PRIME («£!>e.\ prmfer'i 

SEIRTTED "iVowLINeMOOE 
-^14 AUTO LF AFTEgCR ir UNE;."^' 
-^^•Z eUROR "(Z)"= ERKORCOND. 
->I2 PAPE-e-END "l" = ERROe(:oND. 
-j-f-/ iU3V «i".Ai/5Y 
-> ifc S>6MAI- 6ND . 



->I7 ^HA^&fS 6ND. 



And i^FQO- — 0FFF j^or RAM 
Mode uJorci for H0De:-3 CSTRoBeD-OuT> -fc^ 



STAR DPSIO 











[»♦»♦ 


















1 O ^ O O CO) 



I f I I I 



[=\ mnmnmnnm c 



EPROM 



OMDER-PR.INT 



rc7 



rc 




ooor prinf- 



-?'LAA6a.(5 on-line 





OKIMATE 20 

















— -— ^ 





Futuristische OKI-afdrukkers erkend de 
beste in Nederland. Nu ook voor 
iedereen betaalbaar geworden. 
Aansluitbaar op Commodore 64, BBC, 
MSX e.a. homecomputers. 



Vraag de dealerlijst bij de otficifile importeur 



OKI MICROLINE 182 

OKImate 20 v.a. fl. 985.-- 
Microline182 v.a. fl. 1170.- 
excl. b.t.w. Bruto adviesprijs. 

OKI printers, door computers voor computers. 

Technitron B.V. 



Zwartew/eg 110, Postbus 14, 1430 AA AalsmeerT tel. 02977-22456 - telefax 02977-40968 - telex 13301 
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